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Beyond Tech Tips 

Dan Appleman, leading author on VB 

Tech Tips are fine, but they are no substitute for real understanding. Whether it is a book, or one of 
Desaware's products, my goal since the days of VBl has been to help Visual Basic programmers 
become more productive by teaching fundamental concepts so that you will not only understand 
tech tips, but be able to come up with your own whenever you need them for your applications. 
My books are not "manual rehashes" that just repeat what you get from Microsoft. The products 
are not just wrappers for simple tasks. Both are full of enabling technology and information based 
on real world experience. On this page you'll find the latest information about my books and 
software products. I'd like to invite you to visit our web site at www.desaware.com. In addition to 
product information, you'll find technical articles I've written on a variety of subjects. Thanks for 
your time... Dan 




SpyWorks 6.0 allows VB programmers 
to perform almost any task that can be 
done using Visual C++ 

start with Advanced Subclassing - In-and 
cross process. Create true Function Exports 
from your VB DLLs. Handle Internet/Intranet 
communications with our Winsock Connponent ; 
- with VB source. Use Windows Hooks to 
Intercept messages and keys for a window, process or the entire 
system. Make API programming easy with our API Class Library 
with source. Create Control Panel Applets. 
New for 2000 - Create Background threads for your VB DLL 
COM objects. 

Coming Soon - NT Service Toolkit 

9 SpyWorks Professional already supports creation of 
simple NT services using VB - but our new NT 
Service toolkit will blow you away. Create services in 
minutes - with almost every feature available to C++ 
I services. And you can use all the VB IDE tools to 

debug your service while it runs. For the latest details 
and availability visit www.desaware.com. 

Escape DLL Hell! 

VersionStamper helps eliminate incompatibility 
problems that can occur when distributing 
component based applications. Supports the 
Internet and corporate intranets. Your 
application can analyze a client system using an 
embedded dependency list or data from your 
Web or FTP site. Problems can be resolved by 
notifying the user, reporting via Email, or automatic download of 
the correct components from your web or FTP site. 



Data Storage for VB, VBA 
and Internet Applications 

StorageTools allows you to create complex 
documents, each of which can be subdivided 
into multiple named blocks of data. 
StorageTools actually gives you more data 
storage flexibility than most databases, 

ActiveX Gallimaufry 2.0 

Includes a collection of useful, entertaining and 
educational ActiveX controls that include 
complete Visual Basic source code. 
Includes these controls: TWAIN image scanning, MDI 
Taskbar, Hex Editor, Rotate Picture, Banner, Spiral 
Box, Common Dialog Component and more. 



Now at Desaware's bookstore - at 20% off! 





Dan Appleman' 5 
Win32 API Puzzle Boo!< 
and Tutorial for Visual 
Basic Pxograimers 




The Ultimate Win32 API Tutorial 

Have you ever noticed how many "tech tips" 
consist of showing you how to do something 
in VB using the Win32 API? There are about 
1 0,000 API functions - and this book can 
teach you how to use them all, by teaching 
I you to read and understand Microsoft's own 

' I documentation. Eleven hardcore tutorial 

chapters go into more depth than any other 

source. 32 puzzles give you the real world 
experience you'll need to handle even the most complex API 
function. $39.95 ISBN: 1-893115-01-1 from Apress, a new 
computer book publisher that I helped found to develop top 
quality books for professional programmers, www.apress.com. 



And now for something 
completely different.. 

had the privilege of doing the tech review 
for Dave Baum's Definitive Guide to Lego 
Windstorms - the robotics system from Lego. 
With 14 amazing robots to build, and a free 
C compiler, you'll find it hard to get back to 
your VB programming - 1 sure did. 
$24.95 ISBN 1-893115-09-7 from Apress. 



Definitive API and COM references 

Dan Appleman's Visual Basic Programmer's Guide 
to the Win32 API - Imagine if the core Windows 
Software Development Kit were written for VB 
programmers. Over 900 functions are covered in- 
depth. Covers VB4-VB6. SAMS, ISBN 0-672-31590-4 

Developing COIVI/ActiveX Components with Visual 
Basic 6.0. The essentials of COM and component 
development for VB. This book is definitely not a 
rehash of the VB documentation, so even experienced 
VB programmers will benefit. 
SAMS, ISBN: 1-56276-576-0 
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For more information, please visit... 

www.desawarE.com 

Desaware Inc. 

1100 E. Hamilton Ave. #4 

Campbell, CA 95008 

tel: (408) 377-4770 fax: (408) 371-3530 

email: support@desaware.com 




For even more trich and tips go to 
www.vbpj.com 



Welcome to the Tenth Edition of the 
VBPJ Technical Tips Supplement! 

These tips and tricks were suljmitted by profes- 
sional developers using Visual Basic 3.0 through 6.0, 
Visual Basic for Applications (VBA), and Visual Ba- 
^^ic Script (VBS). The editors at Visual Basic 
Programmer's Journal compiled the tips. Instead of 
typing the code published here, download the tips 
for free from VBPJ's Web site at www.vbpj.com. 

If you'd like to submit a tip to VBPJ, please send it 
electronically to vbpjtips@fawcette.com. You can 
also send it to User Tips, Fawcette Technical Publi- 
cations, 209 Hamilton Ave., Palo Alto, CA, USA, 94301- 
mOO, or fax it to 650-853-0230. Please include a clear 
^Rplanation of what the technique does and why it's 
useful, and indicate if it's for VBA, VBS, VBS, VB4 1 6- 
or 32-bit, VBS, or VB6. Please limit code length to 20 
lines. Don't forget to include your e-mail and mailing 
address, and let us know your payment preference: 
$25 per published tip, or an extension of your VBPJ 
subscription by one year. 




VB6 

Level: Intermediate 
Split Strings Cleanly 

The Split function is great for parsing strings, but what happens 
when a string has more than one consecutive delimiter? It might 
seem odd that Split() returns empty substrings as placeholders 
for the data missing between delimiters, but that's exactly what 
needs to happen so these data positions aren't lost. Unfortunately, 
Split() does not have an option to ignore multiple delimiters. 
CleanSplitO uses the same arguments as Split() and efficiently 
discards empty substrings caused by more than one delimiter in 
a row: 

Public Function CI eanSpl i t ( ByVal Expression As String, _ 
Optional ByVal Delimiter As String = " ", Optional _ 
ByVal Limit As Long = -1, Optional Compare As _ 
VbCompareMethod = vbBinaryCompare) As Variant 
Dim varSubstri ngs As Variant, i As Long 
varSubstrings =■ Spl i t( Expressi on , Delimiter. _ 

Limit. Compare) 
'mark empty substrings with delimiter because 
'the delimiter won't be around after SplitO 
For i = LBound( varSubstri ngs ) To UBound(varSubstrings) 

If Len(varSubstrings( 1 ) ) = Then 
varSubstrings(i ) = Delimiter 

Next 1 

CleanSplit = Fi 1 ter( varSubstri ngs , Delimiter, False) 
End Function 

— ^Maifc Pickenheim, Storin^eid, \^Ntiiia 



VBS, VB6 

Level: Beginning 

Define Properties to Use Standard Dialogs 

It's easy to add the standard LoadPicture and Font dialogs, com- 
plete with ellipsis, in a UserControl's property list. The trick is to 
define the properties as StdPicture or StdFont, respectively. For 
example, you can paste this code into a new UserControl to load 
an image into the UserControl's Picture property and change the 



font for cin embedded textbox. Start a new project in VBS or VB6, 
add m ActiveX control (UserControl), drop a textbox onto it, and 
paste in the code: 

Option Explicit 

Private Sub UserCont rol_Ini tProperti es ( ) 

' Start with some sample text 

Textl.Text = "Some sample text" 
End Sub 

Private Sub LlserControl_ReadPr{)pert1es(PropBag _ 

As PropertyBag) 

' Restore any changes we made during design mode 
Set UserControl . Pi cture = 

PropBag.ReadProperty(" Image", Nothing) 
Set Textl.Font = PropBag . ReadProperty ( " Font" , Nothing) 
Textl.Text = PropBag . ReadProperty( "Text" , _ 

"Some sample text") 
End Sub 

Private Sub UserControl_WritePropert1esCPropBag _ 

As PropertyBag) 

' Save any changes we made during design mode 
PropBag. WriteProperty "Image", _ 

UserControl . Pi cture , Nothing 
PropBag. WriteProperty "Font". Textl.Font. Nothing 
PropBag. WriteProperty "Text", Textl.Text, _ 

"Some sample text" 
End Sub 

Public Property Get ImageO As StdPicture 
' return the UserControl's image (if any) 
Set Image = UserControl . Pi cture 

End Property 

Public Property Set Image(ByVal newBackground As 
StdPicture) 

' change the UserControl's bacl<ground image 
Set UserCont rol . Pi cture = newBackground 
PropertyChanged "Image" 
End Property 

Public Property Get Font() As StdFont 
' get the current textbox font details 

Set Font = Textl . Font 
End Property 

Public Property Set Font{ByVal newFont As StdFont) 

' update the textbox font details 

Set Textl.Font = newFont 

PropertyChanged "Font" 
End Property 

Close the UserControl's designer window and add a new 
project (Standard EXE). Drop a copy of the newly created 
UserControl onto the form, making sure the new control instance 
is large enough to see the textbo.x. and check the property list. 
Apart from the standard properties provided by VB. the property 
list contains two extra properties — Image and Font — complete 
with VB's standard for popping up the Image and Font dialogs. 
For example, if you change the Font properties, the font of the text 
displayed in the textbox changes immediately, and selecting an 
imftge places that image in the UserControl's Picture property. 
— John Cullen, Pedroucos, Portugal 

VBS, VB6 

Level: Intermediate 

Toss the Common Dialogs Control 

InChris Barlow's article "Standardize Your Dialogs" [Getting Started, 
VBPJ June 1999]. he explained the use of the CommonDialog 
control. However, you don't need this control to use Windows' 
common dialog boxes. Microsoft provides a replacement DLL on 
the VBS and VB6 CDs. This DLL is half the size of ComDlg32.ocx (64K 
vs. 126K) and doesn't require placing a control on a form. And, 
perhaps best of all, it provides a Center property. See 
\Tools\Unsupprt\DlgObj on the VBS CD-ROM (or \'VB98\WIZARDS\ 
PDWIZARD on the VB6 CD-ROM) for installation details. 
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Addareference to DlgObjs to your project by selecting Microsoft 
Dialog Automation Objects from tfie Project References dialog. 
This code gets a filename: 

Public Function GetFil enameCWinHandl e As Long) As String 
Dim Dig As ChooseFile 
On Error Resume Next 
Set Dig = New ChooseFile 
With Dig 

.Save = True 

' We want a Save As dialog box. 

.Center = True 

' We want the dialog centered. 

.hWnd = WinHandle ' Need a parent window. 

.HideReadOnly = True 

' Don't need the 'Open as Read Only' box. 

.Mul ti Sel ect = Fal se 

' Don't select multiple files. 

. Overwri tePrompt = True 

' Ask to overwrite an existing file. 

.Filters. Add "BAS Files (* . bas ) : * .has" ' File mask. 

.Filters. Add "All Files (*.*):*.*" ' File mask. 

If .Show Then 

GetFilename =. Directory & "\" & .filename 
Else 

GetFilename = "" ' User pressed Cancel 
End With 

Set Dig = Nothing 
End Function 

Call GetFilename by passing the handle to ttie window that acts as 

the dialog's parent: 

Debug. Print GetFi 1 ename(Me . hWnd) 

— Frank Mokry, Palgrave, Ontario, Canada 

VB3 and up 

Level: Beginning 

Insert Soft Breakpoints 

If you want to step through the code behind a certain screen 
element at run time, you might do something like this in break 
mode: Hit Ctrl-Break from run mode, use the Find dialog to find the 
specific piece of code — say cmdSave_Click — put a breakpoint on 
a line inside that sub, then press F5 to continue the program 
execution. 

Here's an easier way: Hit Ctrl-Break to break while the progrcun 
is running, then press F8. This causes VB to enter breeik mode just 
as the next line of code is about to be executed. It appears the 
program is running normally, but the next Ul action you perform 
halts execution at the first line of code encountered. Clicking on 
cmdSave now puts you in break mode inside cmdSave_Click. You 
get to cmdSave_Click without searching for this event procedure 
and adding a breetkpoint. If you plan on debugging the event 
procedure several times, add a breakpoint now. 
— JanaMraman Sattalnathan, Mayodan, North Carolina 

VB4, VB5, VB6 

Level: Beginning 

Iterate Through Control Arrays 

When you need to iterate through edl the elements of a control 
array, use this code: 

Dim J As Integer 

For J = Textl.LBound to Textl.Ubound 

With Textl(J) 
' Work here. . . 

End With 
Next J 

This way, if you add or remove controls from the array, your code 
still works. This assumes that the array has no holes. 

— Pave Kinsman, Renton, Washington 



VB4, VB5, VB6 

Level: Intermediate 



tV iVi:V i>^V Fiwe Star Tip 



Have Your Functions Both Ways 

When you create generic functions, remember that many func- 
tions are a two-way street. For example, many general utility 
modules contain both LoWord and HiWord functions. However, to 
compose a Long, a MakeDWord or some related function is re- 
quired. Instead, convert your LoWord and HiWord functions into 
properties. That way, they can exist on both sides of the equ9 
for retrieval and for assignment: 



LoWord(Y) 



Or: 



LoWord(y) = x 

Use this code to implement: 

Public Property Get HiWordCL As Long) As Integer 
' used to retrieve the HiWord of a long 

HiWord = <code to do it!> 

End Property 

Public Property Let HiWordCL As Long, ByVal _ 
NewValue As Integer) 

■ used to set the HiWord of a long L is the long to 
' modify, NewValue is the integer you want to set into-v|i 
' the HiWord of the long L 
End Property 

Also, remember you don't have to put this in a class module. 
Property procedures are completely valid within a regular BAS 
module, but if you put them in a BAS module, you must precede 
their names with the module name when calling them. 

You could also use this technique to create a path parse 
routine that lets you replace arbitrary elements of the path string 
(such as the drive, path, or filename), a timer function, or a Split 
function that lets you 2issign elements directly into the splitting 
string as well as retrieve them. 

— ^Darin Higgins, Fort Worth, Texas 

VB3 and up 

Level: Beginning 

Create Default DirMtory for Pro|e<t Shortcuts 

This is an update to "Start Up in Your Code Folder" ["101 Tech Tips 
for VB Developers," Supplement to VBPJ, August 1999]. You can 
store your VB Project Files (VBP) and Project Group Files (VBG) 
under any organization system, emd still open each project with its 
own folder as the default folder for sa'ving and opening files. Create 
a shortcut — on the desktop or in your folder/toolbar — linked 
directly to the VHP or VBG file. The "Start in:" entry is automati- 
cally set to the same folder as the target file. Double-clicking on the 
shortcut starts VB, loaded with the desired project or group, and 
its folder is the default directory. You can create any number of 
such shortcuts, each linked to its own project or group in its own 
directory. This cilso saves you the extra step of first loading VB 
each time, then choosing the project. My boss, Harry Suber, 
discovered and taught me this trick. 

— ^Robert A. Henltel, Beriln, Maryland 

VB5, VB6 

Level: Beginning 

Hard-Code Your Watch Points 

I've seen severed differently angled references to the Debug.Assert 
method in your Tech Tips supplements. They usually advise 
readers to use the "Debug.Assert Fedse" line when they want a 
persistent brejikpoint, even when the breakpoints are cleared or 
files eire closed and reopened later. I want to suggest another 
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useful variation. Any expression that evaluates to False triggers 
the breakpoint. For example, if you are testing a routine that seems 
to work fine until it processes record 413 near the end of your list 
of records, you can insert this line into your code: 

Debug. Assert MyRecords . RecNumber <> 413 

This breaks the code only when the expression evaluates to 
Fcilse — when the record number equals 413. The use of the record 
number vcdue is just an example; you can use any unique identify- 
ing variable value to stop only at the desired area, and run 
uninterrupted through al\ the other psisses of the same code. 

— Robot A. HenlKil, Beriin, Maryland 



VM/32,VB5,VB6 

Level: Intermediate 

Let Users Resize Your Controls 

You can allow users to resize a control — just like in VB design 
mode — ^with a mouse, using two simple API calls. You can resize 
the control — top-left, top, top-right, left, right, bottom4eft, bot- 
tom, and right. When you make ranges for the mouse coordinates 
(such as x>0 and x<100), the MouseDown event activates the API 
functions and sizes your picture box when the mouse moves. This 
code assumes you have a plctmre box on the f onn: 

Private Declare Function Rel easeCapture Lib _ 

"user32" ( ) As Long 
Private Declare Function SendMessage Lib _ 

"user32" Alias "SendMessageA" (ByVal iiWnd _ 

As Long, ByVal wMsg As Long, ByVal wParam _ 

As Long, IParam As Any) As Long 
Private Const WM_NCLBUTTONDOWN = 8,HA1 

' You can find more of these (lower) in the API Viewer. Here 

' they are used only for resizing the left and right. 

Private Const HTLEFT = 10 

Private Const HTRIGHT = 11 

Private Sub Picturel_MouseDown(Button As _ 

Integer, Shift As Integer, X As Single, Y As Single) 

Dim nParam As Long 

With Picturel 

' You can change these coordinates to whatever 
' you want 

If (X > And X < 100) Then 

nParam = HTLEFT 
Elself (X > .Width - 100 And X < .Width) Then 
' these too 

nParam = HTRIGHT 
End If 

If nParam Then 

Call Rel easeCapture 

Call SendMessage( .hWnd, _ 

WM^NCLBUTTONDOWN , nParam. 0) 

End If 
End With 
End Sub 

Private Sub Pi cturel_MouseMove( Button As _ 

Integer, Shift As Integer, X As Single, Y As Single) 
Dim NewPointer As MousePoi nterConstants 
' You can change these coordinates to whatever you want 
If (X > And X < 100) Then 

NewPointer = vbSizeWE 
Elself (X > Picturel .Width - 100 And X < _ 

Pi cturel .Width) Then ' these too 

NewPointeri - vbSizeWE 
Else i 

NewPointer = vbDefault 
End If 

If NewPointer <> Picturel. MousePointer Then 

Picturel. MousePointer = NewPointer 
End If 
End Sub 

— Fran Prc^niik, Zagreb, Croatia 



VB4/32, VB5, VB6, VBA 

Level: Intermediate 

Fill In the E-Mail Fields 

ShellExecute is one of the most flexible Win32 APIs. Using 
ShellExecute, you can pass any filename, and if the file's extension 
is associated to a registered program on the user's machine, the 
correct application opens and the file is played or displayed. 

In the February 1 998 101 Tech Tips supplement, Jose Rodriguez 
Alvira showed ShellExecute's Internet power ("Create Internet- 
Style Hyperlinks"). If you pass an HTTP URL, the user's default 32- 
bit Web browser opens Emd connects to the site. If you pass an e- 
mail address that has been prefaced with "mailto:", the user's 
default 32-bit e-mail client opens a new e-mail note with the 
address filled in. 

Here's how to automatically get a lot more than just the e-mail 
addresses filled in. If you wcmt to include a list of CC recipients, 
BCC recipients, or your own subject text or body text, you can 
create a string variable, add the list of primary addresses (sepa- 
rated by semicolons), then a question mark character and element 
strings prefaced like this: 

For CCs (carbon copies): &CC= (followed by list) 
For blind CCs: &BCC= (followed by list) 
For subject text: &Subject= (followed by text) 
For body text: &Body= (followed by text) 

To add an attachment: &Attach= (followed by a valid file path 

within chr(34)'s) 

To use this trick, create a new VB project, add a form, and add six 
textboxes and a button (cmdSendlt). Paste this into the form's 

Declarations section: 

Private Declare Function ShellExecute Lib " shel 1 32 . dl 1 " _ 
Alias "Shel 1 ExecuteA" (ByVal hWnd As Long, _ 
ByVal IpOperatlon As String, ByVal IpFile As String, _ 
ByVal IpParameters As String, ByVal lpDirectory_ 
As String, ByVal nShowCmd As Long) As Long 

Private Const SW_SHOWNORMAL - 1 

Paste this code into the button's Click event: 

Private Sub cmdSendl t_Cl ick( ) 
Dim sText As String 
Dim sAddedText As String 
If Len(txtMainAddresses) Then 

sText = txtMainAddresses 
End If 

If Len(txtCC) Then 

sAddedText => sAddedText & "SiCC-" & txtCC 
End If 

If Len(txtBCC) Then 

SAddedText = sAddedText & "XBCC-" & txtBCC 

End If 

If Len(txtSubject) Then 

SAddedText = sAddedText & "SSubject-" & txtSubject 

End If 

If LenCtxtBody) Then 

SAddedText = sAddedText & "&Body=" & txtBody 
End If 

If Len(txtAttachmentFileLocation) Then 
SAddedText = sAddedText & ''&Attach=" & _ 

Chr(34) & txtAttachmentFlleLocation & Chr(34) 

End If 

sText - "mailto:" & sText 

' clean the added elements 

If Lent SAddedText) <> Then 

' there are added elements, replace the first 
' ampersand with the question cliaracter 
Mi d$( SAddedText, 1, 1) = "?" 

End If 

sText = sText & sAddedText 
If LenCsText) Then 

Call Shell Execute (Me. hWnd, "open", sText, _ 
vbNullString, vbNullString, SW_SHOWNORMAL) 

End If 
End Sub 
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You can't have spaces between the ampersands and tags, or 
between the tags and the equal signs. You don't have formatting 
options, so body text will be one paragraph. However, when you 
use this technique, program errors are e-mailed to you with full 
details, and you can create real e-mail applets in a just a few 
seconds. It beats automating a full e-m£iil program. 

In addition, almost all this functionality is possible in HTML 
MailTo tags. Here is a sample: 

<A HREF="mai 1 to : smi th(Ssini thvoi ce . com?subject= 
Feedback From VisualBasic ett 

smithvoice.com/vbfun. htm8iCC=sm1 thiSsmi thhome . org&BC 
C=f red@f red. net ; bi 1 l@hoine.com&body=hel 1 how are 
yoLi">feedback@sm1 thvoi ce</A> 

1 have yet to get HTML to do the attachments, but attachments are 
no problem in VB. 

Editor's Note: The full functionality ofttiese extra fields is available 
in e-mail clients tfiat are totally Exchange-compliant Some or all of 
the extra Mds might not work with noncompliant e-mail clients. 
— Robert Smith, Klrkland, Washington 

VB4, VBS, VB6 

Level: Beginnii^ 

Maintain Call Stack for Error Tracing 

1 program all reusable components into DLLs or OCXs. To provide 
a consistent error-handling technique across all my projects, 1 use 
the Raise method of the Err object in all these components and 
display the error only in the code module of first entry — such as 
Command l_Click. Because an error can be generated several 
layers deep in the code, 1 propagate the location of the error using 
this Raise statement in all my reusable components: 

ThisProcEH: 

Err. Raise Erp. Number, "ThisProc" & vbCr & Err. Source 

Exit Sub 

This way, the whole call stack is returned to — and can be dis- 
played in — the calling procedure (through Err.Source), making 
errors much easier to find and solve. 

— ^Harvey HaMieg, McLean, VlBgiiila 

VB5,VB6 

Level: Intermediate 

Create Close-All Add-In 

1 often open up many windows in a VB project when I'm doing a 
search and/or replace in code. On large projects, it becomes 
cumbersome to close all those windows one by one. Here's a quick 
add-in you can create to close those windows for you. Start a new 
project and select the Add-In type. Paste this code into the 
frmAddln that's created for you: 

Private Sub Form_Load() 
Dim w As Window 

For Each w In VBInstance. Windows 

' close either code or form design windows 
' that are visible 

If (w.Type = vbext_wt_CodeWindow Or _ 

w.Type = vbextjftjesigner) And w. Visible Then 
w.Cl ose 

End If 

Next 

Unload Me 
End Sub 

Highlight the Connect class in the Object Browser, right-click on it, 
and edit the Description property to change the name and descrip- 
tion of the add-in. Also, search the template code and replace "My 
Add-In" with whatever you decided to call it. After building the 
DLL, you ccin add it from the Add-In Manager and close all those 
pesky windows in no time, 

— Rick Lalllss, received by e-raail 



VB3 and up 

Level: Intermediate 

Right Click on a VB File to Open in Notepad 

You might have wished you could right-click on a VB file and open 
it in Notepad, or copy a snippet of code for Mother app you're 
working on. Try this: Drop this code in a text file named 
FormEdit.reg, save it, and close the file: 

REGEDIT4 

[HKEY_CLASSES_R00T\VisualBasic.Form\shen\ed1t] 

@="&Edit" 

[HKEY_CLASSES_ROOT\VisualBasiG.F0r'in\shen\edit\ command] 

^"Notepad. exe 

When you double-click on the file, the contents are automati- 
cally loaded into the System Registry. Right-click on any VB form 
and you should see Edit in the popup menu. Do the same for the 
other VB text files — ^VisucJBasic.ClassModule, VisualBasic. Module, 
and VisualBasic. Project — and use Regedit.exe in the Windows 
folder to verify the results. You can substitute Word or any other 
text editor for Notepad by setting the command entry: 

@="C : WProgram Fi 1 esWMi crosoft 
Of f i ce\ \0f f i C8\ \Wi;EWord . exe 11" 

Be mindful of the double backslashes cind where you load Office — 
they must be correct for this to work. 

Although the locations of the Registry entries for VB4, VB5, and 
VB6 are different, you can get this to work for any VB text file 
including BAS, CLS, FRM, and VBP. It does not work on FRX or other 
binary files. This also works with HTML files. Make a similar entry 
for your default browser to edit the HTML file as plain text with 
nothing more than a right-click. Or set it up for your GIF files to run 
under your browser to see how they will look. Most important, be 
careful anytime you do anything to the Registry. 
— Greg Mogg, Amarillo, Texas 

VB4/32,VB5,VB6 

Level: Intermediate 

Use a Class Module for Persistent Global Variables 

When 1 use variables that need to be saved to the Registry or to an 
INI file, I sometimes forget to place the API call after the variables 
in a program have chemged. This might cause problems later when 
the program is exited and restarted. Instead, use the variable in a 
clciss module that can be used as a local variable for a form/ 
routine, or make the clciss a global class in the BAS module. When 
assigning a value to the variable when it's a cleiss, you use Property 
Let. In this routine, place your API call to save the new Vcdue to the 
Registry or INI file. Place this code in your BAS module: 

Public Const ProgramMamt - "YourProf Ptint" 

Public Const AppName = "General" 

Public Const AppKey - "Last User" 

Public Const INIFile - "YourlNIFile. INI" 

' This makes all objects in ProjectVan'ables 

' global to the program. 

Public Variables As ,New ProjettVarlaWes 

Place this code In your class module: 

' ProjectVariabl es . cl s 

Option Explicit 

Private Declare Function _ 

WrltePrlvateProflleString Lib "kernel32" _ 

Alias "Wri tePri vateProf i 1 eStri ngA" _ 

(ByVal 1 pAppl 1 catlonName As String, _ 

ByVal IpKeyName As Any, ByVal IpString As _- 

Any. ByVal IpFileName As String) As Long 
Private m_sUserName As String 
Property Get UserNameO As String 

UserName = m_sUserName 
End Property 

Property Let UserName( ByVal sUserName As String) 



4 



Supplement to Vaml Basic Proff'ammer's JounuU FEBRUARY 2000 



For even more tricks and tips go to 
www.vbpj.com 



If sUserName <> m_sUserNaiiie Then 

' Use this to save to the Registry 

SaveSetting ProgramName . AppName. AppKey, sUserName 

' Use this to save to an INI File 

Call Wri tePri vateProf i 1 eStri ng( AppName. _ 

AppKey, sUserName. INlFile) 
End If 

m_sUserName = sUserName 
End Property 

With this code behind the Property Let, whenever you change the 
UserN2ime Vciriable to a new value, the key/value pair is automati- 
cally written to the INI file or Registry. 

— John Zenkavich, Clarks Summit, Penagylvania 

VB4/32,VB5,VB6 

Level: Intermediate 

Ufo faster Floating-Point Division 

If you do a lot of floating-point division operations in VB, you can 
optimize these operations by multiplying by the reciprocal value. 
For example, instead of performing this calculation: 

X/Y 

Do this: 

X * {1 / Y) 

You can see how this wqr^ in VB by adding this code to a form 
in a new project: 

Private Declare Function GetTi'ckCount tib _ 

"kernel32" () As Long 
Const NORMAL As Double = 1453 
Const RECIPROCAL As Double - 1 / NORMAL 
Const TOTAL_COUNT As Long = 10000000 
Private Sub Forni_Cl i ck( ) 

Dim dbl Res As Double 

Dim IngC As Long 

Dim IngStart As Long 

On Error GoTo Error_Normal 

IngStart = GetTickCount 

For IngC = 1 To TOTAL_COUNT 
dbl Res = Rnd / NORMAL 
Next IngC 

MsgBox "Normal Time: " & GetTickCount - IngStart 
IngStart = GetTickCount 
For IngC = 1 To TOTAL_COUNT 
dbl Res = Rnd * RECIPROCAL 
Next IngC 

MsgBox "Reciprocal Time: " & GetTickCount - IngStart 
Exit Sub 
Error_Normal : 

MsgBox Err. Number & " - " & Err. Description 
End Sub 

I've seen consistent performance gains of 15 percent with the 
reciprocal technique. But be careful of rounding issues — for ex- 
ample, 3/3 = 1, bat 3 * (0.333333...) = 0.999999.... 
— Jaaon Bock, Germantown, Wisconsin 

YB5, VB6 

Level: Intermediate 

Dual Procedure IDS 

When using VB to create a new ActiveX control with a Caption or 
Text property, you can set the corresponding Procedure ID to cause 
the Property Browser to update the property value with each 
keystroke, just as the Label and Text controls do. However, it's not 
obvious how to make it the default property as well. That's because 
(Default), Caption, and Text all appear in the Procedure ID list, 
allowing only one ID to be assigned to your new property. To get 
around this limitation, create another hidden property (check 
"Hide this member" in the Procedure Attributes dialog) that up- 
dates thesame vjpiable and you can make that the default property. 

— Chuck Liem, Olathe, Kansas 




VB4/32, VB5, VB6 

Level: Intermediate 



Use GetlnputState in Loops 

Some developers suggest putting DoEvents in loops to keep your 
application responsive. This is never a good idea. If the loop is 
short, you don't need it; if the loop is long, you'll take an unaccept- 
able performance hit. But what if you want your user to be able to 
click on a Cancel button or perform some other action while a long 
loop is executing? 

A good compromise is to call GetlnputState. This API function 
returns 1 if the user has clicked on a mouse button or hit a key on 
the keyboard. The overhead for GetlnputState is much less than 
for DoEvents, so your loop runs faster. If a keybocu-d or mouse 
event occurs, then you can call DoEvents. In other words, you call 
the expensive DoEvents only when you actually need it to process 
an event .You can further reduce overhead by checking only every 
X iterations (the exact number being dependent on how time- 
consuming each loop is): 

Option Explicit 

Private Declare Function GetlnputState Lib "userSZ" () ^ 

As Long 

Private m_UserCancel As Boolean 
Private Sub cmdCancel_Cl i ck( ) 

m_UserCancel = True 
End Sub 

Private Sub cmdGo^Cl i ck( ) 
Dim ICounter As Long 
m_UserCancel = False 
Me.MousePolnter = vbHourglass 
For ICounter = To 10000000 
'any long loop that may need to be Interrupted 
If ICounter Mod 100 Then 

If GetlnputState <> Then 
'a mouse or keyboard event Is 1n the 
'message queue so we caTl DoEvents 
'so it can be processed 

DoEvents 
If m_UserCancel Then Exit For 
End If 
End If 
Next ICounter 
Me.MousePolnter = vbDefault 
End Sub 

—Daniel R. Buakirk, Bronx, New York 

VB4/32, VB5, VB6 

Level: Intermediate 

Generate GUIDs With One API Call 

I read a great advanced tip on how to create a GUID in "Generate 
Unique String IDs" ["101 Tech Tips for VB Developers," Supplement 
to VBPy, August 1999]. However, you can use only one API call instead 
of four. The OLE32.dll contains a function called WinCoCreateGUlD 
that does all the math for you. I have included a second function called 
PadZCTos to format the GUID: 

Option Explicit 
Private Type GUIDType 

Dl As Long 

D2 As Integer 

D3 As Integer 

D4C8) As Byte 
End Type 

Private Declare Function WinCoCreateGuid Lib ''0LE32.DLL" 

Alias "CoCreateGuid" (g As GUIDType) As Long 
Public Function CreateGUIDStringC ) As String 
Dim g As GUIDType 
Dim sBuf As String 
Call Wi nCnCrpatpGiiidrq ) 
sBuf = PadZeros(Hex$(g.Dl ) , 8, True) & _ 

PadZeros(Hex$(g.D2) , 4, True) &_ 

PadZeros(Hex$(g.D3) , 4. True) &_ 

PadZeros{Hex$(g.D4(0)), 2) & _ 
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PadZeros(Hex$(g.D4(l) ) . 2, True) 
PadZeros(Hex$(g.D4{2)), 2) & _ 
PadZeros(Hex$(g.D4(3)), 2) & _ 
PadZeros(Hex$(g.D4(4)), 2) & _ 
PadZeros(Hex$(g.04(5)), 2) & _ 
PadZeros(Hex$(g.D4(5)). 2) & _ 
PadZerosCHex$(g.D4(7)), 2) 
CreateGUIDString = sBuf 
End Function 

Private Function PadZerosCByVal sBit As String, _ 
ByVal iStrLen As Integer, Optional bHyphen _ 
As Boolean) As String 
If iStrLen > Len(sBit) Then 

sBIt = Right$(String$((iStrLen - Len(sBit)), _ 
"0") «, sBit, iStrLen) 

End If 

If bHyphen Then sBit = sBit & "-" 
PadZeros = sBit 
End Funeti§n 

— ^D) Hackney, received by e-mail 

VB5,VB6 

Level: Beginning 

Avoid line Input Null Problems 

Sometimes you have to move information from a flat file (main- 
frame or ASCII text file) to a database. Usually, this flat file is a set 
of records, and the delimiter between records is a carriage return/ 
linefeed pair. Records might be different sizes and can contain Null 
characters. This code is a standard way to read a file line by line, 
but fails because strBuff loses Null characters, and the structure 
of the current record is incorrect: 

Do Until EOF(l) 

'// After the next statement strBuff 

'will be without Null characters 

Line Input #1. strBuff 
Loop 

I know at least three ways to fix this problem. Here's my favorite 
way. You have to use Microsoft Scripting Runtime DUL (scrun.dll): 

Dim FSO As New Fi 1 eSystemObject 
Dim TS As TextStream 
Dim StrBuff As String 

Set TS - FSO.OpenTextFile<"E:\MyflatFile.txt°. ForReading) 
Do Until TS.AtEndOfStream 

'// Reading current line and replacing 

'Null characters to spaces 

StrBuff = ReplacetTS.ReadLine, Chr$(0), " ") 

'// Your parsing code here 

Loop 

TS .CI ose 

Set FSO = Nothing 

This code returns a correct result because the ReadLine method 
doesn't lose Null characters. I used the Replace function only to 
prepare the current line for parsing. VB5 users need to use ctnother 
approach to replace Nulls with space characters. 
— Vladhntr OBfer, Brooklyn, New York 

VB5, VB6 

Level: Intermediate 

Use WithEvents to Communicate Between MDI and 
MDIChild Forms 

Here's a neat way to pass events such as toolbar clicks and menu 
selections from an MDlForm to an active MDIChild form. Suppose 
the MDI parent has a toolbar control called tbrMain. Add this code 
to the IVDJIForm: 

Event ButtonClickCstrKey As String) 

Private Sub tbrMai n_ButtonCl i ckCByVal Button 

As MSComctl Lib. Button) 

Rai seEvent ButtonCl i ck( Button . Key ) 
End Sub 



Then add this code to each MDIChild form you want to receive the 
custom ButtonClick event: 

Private WithEvents mjdiParent As mdiParent 
Private Sub Forni_Acti vate( ) 

Set m_md1 Parent = mdiParent 
End Sub 

Private Sub Form_Deacti vate( ) 
Set mjdiParent = Nothing 
End Sub 

Private Sub nijdi Parent JuttonCl i ck(strKey As String) 
' Sample code assuming Button. Key values of 
' "New", "Change". "Delete" and "Save" 
Select Case strKey 
Case "New" 

Perf ormNewActi on 
Case "Change" 

Perf ormChangeAction 
Case "Delete" 

PerformDel eteAction 
Case "Save" 

Perf ormSaveActi on 
End Select 
End Sub 

The effect is almost the same as declaring a control called 
m_mdiParent that has a ButtonClick event on your form. Use the 
Activate and Deactivate events to ensure that the active MDIChUd 
is the only one that receives the ButtonClick event. 
— Pat Dootey, Clevdand, OMo 

VB4/32 

Level: Intermediate 

Add Option/Checkbox Toggle Capability in VB4/32 

VB5 introduced a Style property of the checkbox or option button, 
with a graphical setting that makes the button or checkbox appear 
to be a command button instead of its default appearance. It 
behaves like a toggle button in Access. However, if you're using 
VB4, you need help from the Windows API to get this behavior. 
Create a new module and enter this code: 

Option Explicit 

Public Const BS_PUSHLIKE& - W1DO0& 

Public Const GWLJTYLE = (-16) 

Public Declare Function GetWindowLong _ 

Lib "user3Z" Alias "GetWi ndowLongA" _ 

(ByVal hWnd As Long, ByVal nindex As Long) As Long 
Public Declare Function SetWi ndowLOng Lib _ 

"user32" Alias "SetWi ndowLongA" _ 

CByVal hWnd As Long, ByVal nindex As Long, _ 

ByVal dwNewLong As Long) As Long 
Public Sub MakeButtonCctl As Control) 

Dim IngReturn As Long 

Dim IngStyle As Long 

IngStyle = GetWi ndowLongC ctl . hWnd , GWL_STYLE) 
IngStyle = IngStyle Or B$_PUSHLIKE 
If 1 ngStyl e .Then 

IngReturn = SetWi ndowLong ( etl . hWnd , _ 
GWL_STYLE, IngStyle ) 

End If 
End Sub 

Then create a form and add a checkbox and an option box (Check 1 
and Optionl). Make them the size you want them to appear as a 
button. In the Form_Load event, add this code: 

MakeButton Checkl 
MakeButton Optionl 

At run time, the checkbox and option button both appear as 
command buttons, except they toggle up or down depending on 
the Value property. Try clicking on them to see ttie effect — ^you'll 
need a group of option buttons in a frame to change the original 
option button. 

— ^Mike Lyons, Coquitlam, British Collimbia, Canada 
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VB6 

Level: Intermediate 

Default Button Prevents Firing of Validate Event 

VB6 introduced the Validate event as a way to handle field-level 
validation without using LostFocus, which doesn't always fire in 
the order you would expect. The Validate event is a great idea, but 
doesn't work correctly on forms with a Default button. If the user 
presses Enter instead of clicking on the default button, neither the 
Validate event nor the LostFocus event fire. If the user clicks on the 
button with the mouse, however, both events fire correctly. You 
Ccin get around the LostFocus problem by entering this code in the 
first part of the button's Click event: 

Private Sub cmdOK_Cl i ck( ) 

If Not Me . Act! veControl Is cmdOK Then 
cmdOK. SetFocus 
DoEvents 
End If 

' '[remainder of click processing] 
End Sub 

With this code, if the user presses Enter to pick the default, the 
focus changes to the default button before any other Click event 
code executes, causing whichever control currently has focus to 
fire Its Lostf'ocus event. You would expect the Validate event 
would also fire that in this situation, but it doesn't. So, for forms 
with default buttons, LostFocus Is the better way to handle field- 
level vedidation. 

— Gordoo Lawgon, Billings, Montana 



VBSandap 

Level: Beginning 

Gonorate Ordinal Strings Simply 

Sometimes, you have an integer value in code that you'd like to 
display in a string as an ordinstl. For example, a veuiable contains 
the number 3, and you want to display a message like "The 3rd 
item..." You can use this function to convert the number into a 
string with "st," "nd," "rd," or W attached property: 

Public Function GetOrdinal (ByVal Nura As Long) As String 

Dim n As String 

' Num is assumed to be greater than zero 
n - est r( Num) 
Select Case Right${n, 2) 
Case "11", "12", "13" 

GetOrdinal = n & "th" 
Case Else 

Select Case Right$(n, 1) 
Case "0", "4" To "9" 

GetOrdinal = n & "th" 
Case "1" 

GetOrdinal = n & "st" 
Case "Z" 

GetOrdinal = n & "nd" 
Case "3" 

GetOrdinal = n S "rd" 
End Select 
End Select 
End Function 

— Thomas Weiss, DeerBeld, Hlinoig 

VB4/32,VB5rVB6 

Level: Intermediate 

Get Dropdown's hWnd Without Subclassing 

I've written code to get the hWnd for a combo's dropdown. When 
acombo's DropDown event is fired, the dropdown is not yet visible 
on the screen. Post a WM_KEYDOWN to the combo, which causes 
the combo's KeyDown event to fire after the dropdown is visible. 
Then use the Win32 API calls ClientToScreen, WlndowFromPolnt, 
and GetClassName to locate the dropdown window. Once you 
have the dropdown's hWnd, you can move and resize the dropdown 
window using Win32 API calls such as SetWindowPos. You'll find 
this technique useful where the width of the combo is less then the 



width of the combo's longest item text. To shorten the code listing, 
I'm leaving to you the case where the dropdown is dropped above 
the combo: 

Option Explicit 
Private Type POINTAPI 

X As Long 

y As Long 
End Type 

Private Declare Function PostMessage Lib "user32" Alias _ 
"PostMessageA" {ByVal hWnd As Long. ByVal wMsg As Long. _ 
ByVal wParam As Long, ByVal IParam As Long) As Long 

Private Declare Function WindowFromPoint Lib "user32" _ 
(ByVal xPoint As Long, ByVal yPoint As Long) As Long 

Private Declare Function ClientToScreen Lib "user32" {ByVal _ 
hWnd As Long, IpPoInt As POINTAPI) As Long 

Private Declare Function GetClassName Lib "userSZ" Alias _ 
"GetClassNameA" CByVal hWnd As Long, ByVal IpClassName As _ 
String, ByVal nMaxCount As Long) As Long 

Private Const WM^KEYDOWN = &H100 

Private Const KEY_CODE_DROPDOWN = 256 

Private Sub Combol_DropDown( ) 

'This will cause Combol_KeyDown to fire 

'after the DropDown is shown 

Call PostMessage(Combol.hWnd, WM_KEYDOWN. 

KEY_COOEJROPDOWN, 0) 

End Sub 

Private Sub Combol_KeyDown(KeyCode As Integer. Shift As _ 
Integer) Dim hwndDropdown As Long 

If KeyCode - KEY_CODE_DROPDOWN Then 

hwndDropdown = GetHwndDropdown(Combol) 
Debug. Print hwndDropdown 

End If 
End Sub 

Private Function GetHwndDropdownCcbo As ComboBox) As Long 
Dim ptOropDown As POINTAPI 
Dim hwndDropdown As Long 
Dim sClassNalffe As String 
Dim IRetLen As Long 

ptDropDown.x = (cbo. Width / 2) / Screen. TwipsPerPlxelX 

ptDropDown.y = (cbo. Height * 1.1) / _ 

Screen.TwipsPei'PixelY 
Call CI i entToScreen( cbo . hWnd , ptDropDown) 
hwndDropdown = Wi ndowFroraPol nt(ptDropDown . x, _ 

ptDropDown . y ) 
sClassName = Str1ng$(255, Chr$(0)) 
IRetLen = GetCl assName( hwndDropdown , sClassName, _ 

Len( sCl assName ) ) 
If IRetLen > 1 Then 

If Left$(sCl assName, IRetLen) = "ComboLBox" Then 
GetHwndDropdown = hwndDropdown 

End If 
End If 
End Function 

—Mike HUl, Nortliridge. California 

VB5,VB6 

Level: Beginning 

Enumerate Flags for Easier Coding 

If you do a lot of work with the Windows API, you might notice that 
some API functions have flag-type parameters, and you usually 
pass API constants as the values for these parameters. Instead of 
putting multiple Public Const statements in a module the way the 
API Viewer gives them to you, you can group similcu- constants into 
enumerations and change the type of the parameter in the API 
function prototype to be the enumeration instead of a Long 
integer. This technique works only with Longs. The benefit is that 
the possible parameter values are displayed in the constant list as 
you're coding your API function calls. 

—Thomas Weto, Deeifield, Dlinofe 
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VB5, VB6 

Level: Intermediate 

Use System Uons for MsgBox Lookalikes 

When VB's MsgBox function doesn't provide everything you need, 
you have to create a message-box-lilce form. You might find 
yourself in a quandary if you want to include one of the icons that 
normally displays in a Windows message box. Instead of getting a 
screenshot of a standard message box, editing it in Paintbrush to 
get only the 32-by-32 icon, and loading the resulting bitmap into an 
image box control on your form, you can use the Windows API to 
extract these icons from the system directly. Add these declara- 
tions to a module in your application: 

Private Enum StandardlconEti.um 

IDI„ASTERISK = 32516S, ' like vbinf ormati or 
IDI_EXCLAMATION = 32'51&8i ' like vbExl amati on 
IDIJAND - 32513& ' like vbCritical 

IDI_QUESTION ^ 32514& ' like vtiQitesti on 

End Enum 

Private Declare Function LoadStandardlcon Lib "user32" Alias _ 

"LoadlconA" (ByVal hinstance As Long, ByVal IpIconNufn As _ 

StandardlconEnum) As Long 
Private Declare Function Drawlcbn Lib "userSZ" (ByVal hDC _ 

As Long, ByVal x As Long, ByVal y As Long, _ 

ByVal hicon As Long) As Long 

Then make your message box's Paint event look like this: 

Private Sub Form_Paint( ) 
Dim hlcon As Long 

hIcon - LoadStandardlconCOX, IDI_EXCLAMATION) 
Call DrawIcoTitMe.hBC. 10&, IM, hlcon) 

End Sub 

The LoadStandardlcon prototype is a tweaked version of the 
normal Loadlcon prototype, edited to use StandardlconEnum 
instead of a Long for the IpIconNum paremieter. 
—Thomas Wetos, DeerBeld, Illinois 

VB4, VB5, VB6 

Level: Beginning 

Position and Size Controls Using Keyboard 

You can move controls using Ctrl with the arrow keys, and you can 
change control size using Shift with the arrow keys. The controls 
move or resize according to the Grid Width and Grid Height set in 
the Options dialog's General page. Unlike performing this task 
with the mouse, you can use this technique even when controls are 
locked. You'll find it more convenient when you must position and 
size controls accurately. 

— Grace Li, Christchurch, New Zealand 

VB4/32, VB5, VB6 

Level: Intermediate 

Query Objects for initialization State 

In a large app, or even a small one, you can use Property Let and 
Property Get to make sure necessary variables and subsystems 
are initialized. This code is from a large ADSl-based program in 
production: 

Public Property Get ADSIInitiatizedf ) As Boolean 
If dso Is Nothing Then 

ADSIInitialized = False 
El se 

ADSIInitialized = True 
End If 
End Property 

Public Property Let ADSI Inl t1 al 1 zed(aVal ue As Boolean) 
If aVdlue " False Tlieii ' Shut everything off 

Set cont = Nothing 
Set dso = Nothing 
Else 

' Make sure we aren't already Initialized 



If dso Is Nothing Then 

' Turn everything back on 

Set dso = GetObjectC'WinNT:") 

Set cont = dso.OpenDSObjectC'WinNT://" _ 

& Server, "", "", ADS_SECURE_AUTHENTICATION ) 

End If 

End If 
End Property 

Now it's trivieil to verify this component has been initialized and 
initialize it if necessary: 

If Not ADSIInitialized Then ADSIInitialized = True 
— Gregory Gadow, Seattle, Waahtngton 

VB6 

Level: Intermediate 

Use TreeView Control WItb Checkboxes 

When the NodeCheck event triggers, you receive as a parameter 
the node that was checked. Say you need to do some validation 
anduncheckthenodewhenthere's an error. You set Node.Checked 
= False, right? Wrong! That unchecks the node until the NodeCheck 
event finishes, but at the end of the event, the node chemges to its 
previous value. The reason for that is that the Node parameter is 
passed ByVad. To work around this problem, add a timer to your 
form CInterval=50, EnabIed=Palse). Enable the timer in the 
NodeCheck event: 

Dim iTiNode As Node 

Private Sub T1 merl_T1 mer ( ) 

Timerl . Enabl ed = False 

mNode .Checked = Fal se 

Set mNode - Nothing 
End Sub 

Private Sub TreeViewl_NodeCheck(ByVal Node As MSComctl Lib. Node) 
If Node.Checked Then 
' ... If ,Inval id Then . . . 
MsgBox "This Node Cannot be Checked." 
Set mNode - Node 
Timerl . Enabl ed = True 
End If 
End Sub 

— Gerardo VMteda, Di'exel HUl, Pennsyl^TOla 

V64,VB5,VB6 

Level: Intermediate 

Treat a Form Like a Function 

Some forms are merely dialog boxes that show something to the 
user and sometimes get something in return. For example, you 
might have to create a form that displays a tabulated listbox of 
information — contacts, for example. The form needs to know which 
item should be selected initially, and you want to know which item 
the user chose in the end. You can share this information through 
public Vciriables, but wrapping the form into a function proves a 
better way. Create a standard EXE project and add an extra form to 
it. Place a command button on the first form and a listbox with a 
button on the second. Place this code in the first form: 

Private Sub Commandl_Cl 1 ck( ) 

MsgBox Form2 .ShowLi stC4) 
End Sub 

Place this code in the second form: 

Dim 1 Sel ectedlndex 

Private Sub Commandl_Cl i ck( ) 

Me . Hi de 
End Sub 

Private Sub Form_Load() 
Dim 1 As Long 
For 1 - To 20 

Li stl. Add Item "Item " & 1 
Next 1 

Listl.Listlndex - iSel ectedlndex 
En-d' Sub 



8 



For even more tricks and tips go to 
www.vbpj.com 



' This is where the magic happens. Note that we have to 
' display a modal form to prevent the continuation of this 
' function until we are ready. 

Public Function ShowLi st (Ini ti al As Integer) As String 
i Sel ectedlndex = Initial 
' Store the parameter for later use 
Me. Show vbModal 
' Display the form 

ShowList = Listl.List(Listl.Listlndex) 
' Return 
Unload Me 
End Function 

This technique not only lets you avoid using public variables, but 
it also gives you excellent portability because you can simply copy 
the form into a different project. None of the code is affected. You 
have wrapped a form into a function. 

— Konstantin Komissarchik, Brier, Washington 



VB3 and up 

Level: Intermediate 

Fun<tions Parse Command Lines 

Handling multiple command-line arguments has always been ugly 
in VB, especially when some of the arguments are quoted because 
they contain characters such as spaces. For example, if you want 
to write a program that takes as an argument a filename, you must 
quote the filename to ensure a space inside it doesn't confuse your 
application. Unfortunately, there's no built-in functionality for 
handling this mess. Here are two functions — GetParam and 
GetParamCount — that I use all the time. Each can heindle a mix of 
quoted and unquoted parameters: 

Public Function GetParam(ByVal Count As Integer) As String 
Dim i As Long 
Dim j As Integer 
Dim c As String 
Dim binside As Boolean 
Dim bQuoted As Boolean 
j = 1 

bInside - False 
bQuoted = False 
GetParam = "'' 
For i - 1 To ten (Command) 
c = Mid$(Command. 1 , 1) 
If binside And bQuoted Then 
If c = Then 
j = j + 1 
binside = False 
bQuoted = False 
. End If 

Elself binside And Not bQuoted Then 
If c = " " Then 
j = j + 1 
binside = False 
bQuoted = False 
End If 
Else 

If c = Then 

If j > Count Then Exit Function 

binside = True 

bQuoted - True 
Elself c <> " " Then 

If j > Count Then Exit Function 

binside = True 

bQuoted - False 
End If 
End If 

If binside And j = Count And c <> _ 
Then GetParam - GetParam & c 

Next 1 
End Function 

Public Function GetParamCount ( ) As Integer 

Dim i As Long 



Dim c As String 
Dim binside As Boolean 
Dim bQuoted As Boolean 
GetParamCount = 
binside = False 
bQuoted = False 
For i = 1 To Len(Command) 
c - Mi d${ Command , i , 1 ) 
If binside And bQuoted Then 
If c = Then 

GetParamCount = GetParamCount + 1 
binside = False 
bQuoted = False 
End If 

Elself binside And Not bQuoted Then 
If c = " " Then 

GetParamCount = GetParamCount + 1 
binside = False 
bQuoted = False 
End If 
Else 

If c = """" Then 
binside = True 
bQuoted = True 
Elself CO"" Then 
binside = True 
bQuoted = False 
End If 
End If 
Next 1 

If binside Then GetParamCount = GetParamCount + 1 
End Function 

— KoBMlaimn IfaMiiigwigdiik, Brier, Waghlngton 

VB4/32,VB5,VB6 

Level: Intermediate 

Account for Taskbars Wken Centering Forms 

Most VB progrjummers must display a form centered on a screen. 
You can do thus in a var i ety of ways, but most Ignore aspects of the 
environment such as the taskbar or the office launchbar. This 
function takes these itspects into account to center a form within 
the client area perfectly: 

Private Declare Function GetSystemMetrlcs Lib "userS?" _ 

(ByVal nindex As Long) As Long 
Private Declare Function QetWi ndowLong Lib ''user32'' _ 
Alias "GetWi ndowLongA" (ByVal hwnd As Long. _ 
ByVal nindex As Long) As Long 
Private Const SM_CXFULLSCREEN = 16 
Private Const SM^CYFULLSCREEN - 17 
Public Sub CenterFormC Frm As Form) 
Dim Left As Long, Top As Long 
Left = ( Screen . Twi psPerPi xel X _ 

* (GetSystemMetrics(SM_CXFULLSCREEN) / 2)) - _ 
(Frm. Width / 2) 
Top = ( Screen . Twi psPerPixel Y * _ 

(GetSystemMetrics{SM_CYFULLSCREEN) / 2)) - _ 
(Frm. Height / 2) 
Frm. Move Left, Top 
End Sub 

— KoiMtMitin KamlMaudiik, Brier, WaaMngton 

VB3 and up 

Level: Beginning 

Enliance the Trim Function 

The Trim function has a serious shortcoming: It handles only 
space chetfacters — not all the usual white spaces such as tabs, 
carriage returns, and line feeds. Instead of the stemdard Trim 
function, use my TrimAIl function, which handles ail white spaces. 
In fact, you can extend It to trim off any character by editing the 
assignment to the ToElimtnate string variable: 

Public Function TrImAll (ToTrIm As String) As String 
Static ToEHminate As String 
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Dim Start As Long, Finish As Long 
' Base condition test 
If Len(ToTrim) - Tlien 

TrimAll = "" 

Exit Function 
End If 

' Define the characters (once) that we want to trim off 
If LendoEl itninate) = Than 

ToEliminate = ChrCO) * Chr(8) 1 ChrO) _ 
& Chr(lO) & Chr(13) & Chr(3Z) 

End If 

' Find the beginning of nonblank string by checking 
' each char against a list of blank chars. 
Start - 1 

Do While Start <= Len(ToTritn) 

If InStrdoEl iminate, Hi dSdoTrim, Start, D) Then 

Start = Start + 1 
Else 

Exit Do 
End If 
Loop 

' Find the end of nonblank. string. 
Finish = Len(ToTrim) 
Do Whi 1 e Finish > 1 

If InStr(ToEl iminate, Mid$(ToTrim, Finish, 1)) Then 
Finish = Finish - 1 

Else 

Exit Do 
End If 
Loop 

If Start > Finish Then 

' If the string is completely Wank, 

' Start will be greater than Finish. 

TrlnAil = "" 

Exit Function 
Else 

' Trim out the real contents 

TrimAll = Mid$CToTrim, Start, Finish - Start + 1) 

End If 
End Function 

— ^KonstantiB Komissarchik, Brier, Wa^lmgton 

VB3 and up 

Level: Beginning 

Format Names Consistently 

People's names come in many separate parts, some of which might 
not be present or known. The hassle begins when you're dealing 
with a storage system — database or otherwise — where the parts 
are stored separately. You're faced with the formidable task of 
putting it all together with correct formatting. A common mistake 
is formatting a person's name whose middle initial is not known: 
John . Doe instead of John Doe. Using these functions, you can 
correct this problem without repeating effort: 

Public Function FormatName(f1 rstname As String, lastname As _ 

String, Optional mi As String, Optional titl-e As. String, _ 

Optional Suffix As String) As String 

Dim sRet As String 

If Len(Trim$(title)) > Then 

sRet = StrConv(title, vbProperCase) 

If R1ght$(sRe,t, 1) <> "." Then sRet = sRet & "." 

sRet = sRet k " " 

End If 

If Len(Trim$(fi rstname)) > Then 

sRet sRet & StrConv(f irstname, vbPhoperCase) & " " 

End If 

If Len(Trim$(m1)) > Then 

sRet = sRet & StrConvCmi, vbProperCase) 

If Right$(sRet, 1) O " . " Then sRet - sRet %. "." 

sRet = sRet 8, " " 
End If 

If Len(Trim$( 1 astname) ) > Then 

sRet = sRet & StrConvClsstnsme, vbRroperCase) & " " 
End If 

If Len(Trim$(Suffix) ) > Then 

sRet = Trim$CsRet) & ", " & StrConvCSuffix, 



VbProperCase) 
End If 

FormatName = TrimtCsRet) 
End Function 

The next function resembles the previous one, except that it puts 
the lEist natme first: 

Public Function FormatNameReverseCfi rstname As String, _ 
lastname As String, Optional tfii As String) As String 
Dim sRet As String 

sRet = StrConv( 1 astname, vbProperCase) 
If Len(Tr1m$(firstname)) > C Or Len(Trim$ (mi ) ) > _ 
Then 

sRet = sRet & " , " 
End If 

If Len(Trim$(fi rstname) ) > Then 

sRet = sRet & " " & Trim$ (StrConv( fi rstname, _ 

VbProperCase) ) 

End If 

If Len(Trim$(mi ) ) > Then 

sRet = sRet & " " «. Trim$(StrConv(Left${ii11 , 1), _ 

VbProperCase)) & "." 

End If 

FormatNameReverse = Trim$(sRet) 
End Function 

— Konstantin Komissarchik, Brier, Washington 

VB3 and up 

Level: Intermediate 

Wrap I/O for Text Files 

In a production application, every time you want to access a file for 
reading or writing, you must retrieve a free handle using the 
FreeFileO function to ensure you don't overwrite an existing 
handle. You also must remember to close the file after you finish 
with it. In some cases, you can avoid the trouble by encasing this 
functioncdity inside utility functions. For example, I wrote these 
two functions to go between strings and text files in my apps: 

Public Function ReadPil e( Fi 1 eName As String) As String 
Dim hFi 1 e As Integer 
hFil e - FreeFi 1 e 
On Error GoTo ErrorTrap 

Open Fil eName For Input As #hFile 
ReadFile - Input( LOF( hFil e) , hFITe) 
Close # hFile 
Exit Function 
ErrorTra p : 

ReadFile = "" 
End Function 

Public Sub Wri teFi 1 e( Fi 1 eName As String, Contents As _ 
String) 

Dim hFile As Integer 
hFile = FreeFi 1 e 
On Error Resume Next 
Open Fil eName For Output As #ftFiTe 
Print #hFile, Contents; 
Close #hFile 
End Sub 

Once you put these functions in your project, you can read and 
write text files quickly. For example, here's a way you might use 
these functions to copy text files: 

Call WrTteFile("c:\h.txt". ReadFi le( "c : \a . txt" ) ) 
— ^KonglanMn KcwnlMai^chik, Mer, Waghington 

VB6 

Level: Beginning 

Enhance the Replace Fuiicticn 

If you're faced with a string that needs to have certain characters 
removed from it, use the ReplaceQ function to make the problem 
more manageable. For instance, use this code to remove all a's 
from a particular string: 
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Debug. Print RepiaceC'abcib'afca', "a", "") 

This statement works fine wiien you weint only a single character 
removed, but if you fiave a long list of suspects, you have to do 
serious copy-wd-paste. Avoid that by using this function: 

Public Function Stri pOut(ByVal From As String, _ 
ByVal What As String) As String 
Dim i As Integer 
For i = 1 To Len(What) 

From = Replace(From, Mid$(What, i. 1). "") 
Next i 

StripOut - From 
End Function 

Just place this code somewhere in your program — preferably in a 
module — and call it like this: 

Debug. Print StrlpOutC "abcdefg" , "bdf") 

This call returns a string with all b, d, and f characters removed. 
— Konstantin Komissarchik, Brier, Washington 



VB3 and up 

Level: Spinning 

Create a Safer Mid FuiKtion 

If you often write complex string-parsing and mwipulation 
algorithms, the last thing you want is to add more checks to ensure 
your string positions are not negative. Avoid the hassle by using 
this function when you need to use Mid. It wraps around native VB 
functionality and handles this common error case: 

Public Function FlexiM1d(From As String. ByVal Start _ 
As Long. Optional Length As Long = -1) As String 
If Start < 1 Then Start = 1 

If Length = -1 Then ' they want the rest of it 

FlexIMId = Mid$(From. Start) 
Else ' just give what they want 

FlexIMId - M1d$(Froiii, Start, Length)) 
End If 
End Function 

Once you paste this function into your program — I recommend a 
module, so you can access it from anywhere — ^you can use it as you 
would Mid. In fact, once I wrote this, I ran a search-wd-replace on 
my project to start using it throughout. 

— Konstantin Komlwardi^ BiIct, Wariiington 

VM/32, VB5, VB6 

Level: Advanced 

Use Screen-Saver Passwords 

When you write a screen saver in C and the Windows SDK, a static 
library (SCRNSAVE.lib) allows you to create custom dialogs to 
change and request the password. But in VB you can't use this 
library. If you don't want to create forms to replace the custom 
dialogs, use these two undocumented functions: 

Declare Sub PwdChangePassword Lib "mpr.dll" Alias _ 

"PwdChangePasswordA" (ByVal 1 pcRegl<eyname As String. _ 
ByVal hWnd As Long. ByVal uiReservedl As Long, ByVal _ 
u1Reserved2 As Long) 

Declare Function VerifyScreenSavePwd Lib _ 

"password. cpl " (ByVal hWnd As Long) As Boolean 

PwdChangePassword is in MPR.dll, the Multiple Provider 
Router. It does all the password maneigement etssociated with 
Regkeyname, including popping up a dialog — ^as a child of hWnd. 
The two reserved parameters should be zero. VerifyScreen- 
SavePwd, in piissword.cpl, pops up a dialog box as a child of hWnd, 
prompting for the screen saver's password. If the user gets it 
wrong, it prints a message saying so and prompts for the password 
again. If the user presses OK, VerifyScreenSavePwd returns True; 
if the user presses Cancel, it returns Fsdse. These calls — and the 
DLLs— exist in Windows 95/98 but not in INT because NT handles 



password management at the system level. Here's how you can 
use the PwdChangePassword call: 

Private Sub cmdChange_Cl ickO 

PwdChangePassword "SCRSAVE". Me.hWnd, 0, 

End Sub 

You must use the string "SCRSAVE" as the first parameter to 
PwdChangePassword, because it has special meaning and the 
function fails if another string is passed. Call VerifyScreenSavePwd 
on detection of mouse or keyboard activity, passing the hWnd the 
dialog should be owned by. Here's a simple exeunple of how to test 
this function: 

Private Sub cmdTest_Cl i ckO 

Dim bRes As Boolean 

bRes = VerifyScreenS*vftPwd{Me.hWnd) 

MsgBox bRes 
End full 

— ^Marco Bellinaso, Treviso, Italy 



VB3 and up 

Level: Beginning 

Write an IsTime Function 

Use this function to determine whether a string represents a valid time; 

Public Function IsTiire(sTimeArg As String) As Boolean 
IsTtme = IsOate(Format(Date. "short date") & _ 
" " & sTImeArg) 
End Function 

— Geir Vlllmones, Moq0en, Norway 

YBSondup 

Level: Beginning 

Turn a Textbox or Label Into a Mnrquoo 

Sometimes you need to display information longer than the biggest 
textbox or label control you can have onscreen. I've written a 
routine that displays a t^box's or label's contents in marquee 
st^e, witii the text moving from right to left. Animate your controls 
by adding a timer to the form and setting its Interval property to 250 
(to update the display four times per second). On each timer tick, 
pass the control you want to einimate to the SMftChars routine. This 
routine works by reading the control's contents, shifting the first 
character to the end, and reassigning the contents: 

Private Sub T1merl_T1mer( ) 

Call ShlftChars(Textl) 

Call Sh1ftChars( Label 1) 
End Sub 

Private Sub ShiftChars(ctl As Control) 
Dim Buffer As String 
Select Case TypeName(ctl ) 
Case "TextBox". "Label" 

' Rely on default property to accept/return contents. 

Buffer = ctl 

If Len(Buffer) > 1 Then 

ctl = MidKBuffer. 2) & Left$(Buffer. 1) 
End If 
End Select 
End Sub 

For a more natural display, make sure your text strings have a 
trailing space character. 

-— Rafat Saroah, Tacoma, Waghington 

VB4/32,VB5,VB6 

Level: Intermediate 

Tost for Illegal Charac tors 

Use this fast function to testlortheoccurrence of noiiatpYianumertc 
characters in a string: 

Private Declare Function StrSpn Lib "SHLWAPI" Alias _ 
"StrSpnW" (ByVal psz As Long. ByVal pszSet As Long) As Long 
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Public Function IsAlphaNum(8yVal sStn'rg As String) As Boolean 

Dim IPos As Long 

Const ALPHA_NUM As String = "abcdefgi hj klmnopqrstuvwxyz" & _ 

"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" 
' Returns the first occurrence of nonmatching characters 
IPos = StrSpn{StrPtr(pString) . StrPtr ( pAl phaNum) ) 
' If the return position is not equal to the length of the 
' input string, nonalphanumeric chars were found. 
IsAlphaNum -JlPos = LenCsString ) ) 
End Function 

You can easily modify this function to scan for invalid characters 
by editing the ALPHA^NUM constant so it includes only characters 
you consider legsd. 

Editor's Note: TheStrSpn function relies on the version ofshlwapLdll 
that ships with Internet Explorer 4. and later. Handle errors — atid 
expectations — accordingly. 

— Geir Amegen, (Mo, Nonwty 

VB3 and up 

Level: Beginning 

Use an Easier Aulohighlight Method 

Most of us have a routine we call to autoUgUlght the entire 
contents of a textbox when it receives focus. And most of us type 
the name of the textbox when we pass it to this routine. Instead of 
typing the control's name in each GotPoeus event, you can use this 
sub to highlight the currently active textbox on the passed form. 
Place this code in a module: 

Sub HILiteCfrm As Form) 

frm. Acti veControl . Sel Start - 

frm.ActiveControl .Sel Length -_ 
Len(frm.ActiveControl .Text) 
End Sub 

Thenplacethisllneofcodeinyourt^boxcontrorsGotFocusOeveDt: 

Private Sub Textl_Got Focus ( ) 

Hi Lite Me 
End Sub 

Using this code, you can forget about typing your controls' neunes 
over and over. 

— ^Ai^imWengeler, San Joge, California 

VB5,VB6 

Level: Beginning 

Remove Unused Controls From Projects 

If you usually load many controls into your VB project during 
development, you often have controls loaded that aren't used any 
more by the time the project's finished. If the controls were added 
to the project, they cire stored in the VBP file regcirdless of whether 
they're used. Here's a quick way to clean up your VBP files so only 
the controls really being used are stored in your project: Open your 
VB project. Open your component window under the Project I 
Components menu or right-click on your toolbox and select Com- 
ponents. Hold down the Shift key cmd click on OK. All components 
not being used will be unclicked anA removed from your project. 
VB6 developers: You must not eliminate references to controls 
you create at run time with the Controls.Add method. 
—Mike Elite, Charlotte, North C^lina 

VB4/32, VB5, VB6 

Level: Intermediate 

Save Forms' Size and Location at Run Time 

You've noticed how some apps display forms and toolboxes in the 
same location cind size as when you last closed them. Here's some 
simple code that gives your VB app the same effect by using the 
Registry. First, fill in an appropriate Tag property for your form at 
design time — something like Main Application Form or Color Tool 
Box. Then keep a global string constant called ApplicationNcune 
that holds the title for your application. It's used here to distin- 



guish the Registry key, but it can also faeUised for ewor messages. 
Place this line in a module: 

Public Const Appl i cati onName = "My Application Name" 

Finally, place this code in a module: 

Public Sub SaveFormDi spl aySetti ngs{f rm As Form) 
If frm. Tag = "" Then Exit Sub 
SaveSetting Appl i cati onName. frm. Tag & _ 

" Display Settings", "Top". Str(frm.Top) 
SaveSetting Appl i cati onName, frm. Tag & _ 

" Display Settings". "Left", Str(frm.Left) 
SaveSetting Appl i cati onName, frm. Tag & _• 

" Display Settings", "Height", StrCfrm. Height) 
SaveSetting Appl 1 cati onName, fptn.Tag & _ 

" Display Settings", "Width", Str(frm. Width) 
End Sub 

Public Sub LoadFormDi spl aySettingsCf riti As Form) 
Dim FormSettings As Variant 
Dim intSettings As Integer 
If frm. Tag =■ "" Then Exit Sub 

FormSettings = GetAllSettingsCApplicattonNafne, frm.Tag, & _ 

" Display Settings") 
If IsEmpty{ FormSetti ngs ) Then Exit Sub 
For intSettings = LBound{ FormSetti ngs , 1) _ 

To UBound( FormSetti ngs , 1) 
Select Case FormSetti ngs ( i ntSetti ngs , 0) 

Case "Left" 

frm. Left = Val ( FormSetti ngs( i ntSetti ngs , 1)) 
Case "Top" 

frm. Top - Val ( FormSetti ngsCi ntSetti ngs , 1)) 
Case "Height" 

frm. Height = Val ( FortnSettlngsdntSettlngs , 1)) 
Case "Width" 

frm. Width = Val CFormSettingsCintSettings, 1)) 
End Select 
Next intSettings 
End Sub 

Add this line to the Form_Load events of the forms you want to 
save: 

Call LoadFormDisplaySettlngs(Me) 
Add this line to the Form_Unload events: 

Call SaveFormDlsplaySettlngs(Me) 

Note one side effect: These Registry settings remain in the 
Registry even after the application has been uninstalled. They're 
stored at or below HKEY_CURRENT_USER\Software\VB and VBA 
Program SettingsXMy Application Name\. 
— ^Kevin Rzz, Reading, Pennsylvania 

VB3 and up 

Level: Intermediate 

Multiply Conditions for Boolean Result 

You often have to test for multiple conditions when enabling a 
confirmation button or other control that commits user input. 
Instead of using complex If .. .Elself statements or inline If functions, 
you can manage multiple conditions by multiplying the many 
conditions together. This way, any condition that hasn't been met 
evaluates to zero and the rules of multiplication will keep your 
confirmation control disabled. For example, assume you have two 
textboxes that must contain text before enabling a command 
button. Call a common subroutine In each textboJt's Change event: 

Private Sub TextLChangeC ) 

Call DoEnables 
End Sub 

Private Sub Text2_Change( ) 

Call DoEnables 
End Sub 
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In the common subroutine, set the conMOwid toutton's Enabled 
property: 

Private Sub DoEnables 

cmdOk. Enabled = Len(Trim$(Textl ) ) * Len(Triiii$(Text2) ) 

End Sub 

Also, adding new conditions is a simple task. Simply include the 
new condition into the series of multiplication: 

Private Sub TextMustieSreaterThanS_Change( ): 

Call DoEnables 
End Sub 

Private Sub DoEnablesO 

cmdOk. Enabled = Len(Trim$(Textl) ) * Len(Triili$(Text2):} * _ 
(Val (TextMustBeGreaterThan5) > 5) 
End Sub 

You can add as memy conditions as you need. Any condition not 
met evaluates to zero before being included into the equation. 
Make sure to enclose your logiccd operators in peirentheses. Even 
one zero results in zero for the entire calculation, which VB treats 
as False for the Enabled property. If all conditions Me met, you get 
a nonzero number, which VB treats as True. 

— harry Kehoe, Rio RanCiho, New Mexico 



VB4/32,VB5,VB6 

Level: Intermediate 

Send a Click Message 

Recently, 1 turned to Windows messaging to manipulate certain 
dialogs by simulating button clicks programmatically. I looked 
throughmyAPlreferencesandfoundonlytheWM_LBUTTONDOWN 
and WM_LBUTTONUP messages. I couldn't get them to work until 
I found, on the MSDN Web site, a message that's not documented in 
the APltextthat comes with VB—BM_CUCK=&HF5. You set IParam 
and wParam both to zero to use this message. It works perfectly 
when it's sent directly to the button. SendMessage is a synchronous 
call. If the button you want to click might take some time to process 
its work, and you'd rather make an asynchronous click, use 
PostMessage instead. This sample shows how to use the BM_CLICK 
message. Paste this code into a new form, with two command 
buttons, one option button, md one checkbox: 

Option Explicit 

Private Declare Function SendMessage Lib "user32" Alias _ 
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg _ 
As Long, ByVal wParam As Long, IParam As Any) As Long 

Private Declare Function PostMessage Lib "user32" Alias _ 
"PostMessageA" (ByVal hWnd As Long, ByVal wMsg _ 
As Long, ByVal wParam As Long, ByVal IParam As Long) _ 
As Long 

Private Const BM_CLICK = &HF5 
Private Sub CheckLCl i ck( ) 

Debug. Print " Checkljl i ck" 
End Sub 

Private Sub Conimandl_Cl i ck( ) 

Debug. Print " Comniandl_Cl i ck" 
End Sub 

Private Sub Conimand2_Cl i ck( ) 

Debug. Print "Entering Command2_Cl i ck" 

Call SendMessage(Checkl.hWnd, BMJLICK, 0, ByVal 08.) 

Call SendMessage(Optionl.hWnd, BM_CLICK, 0, ByVal 0&) 

Call SendMessage(Commandl.hWnd. BM_CLICK, 0, ByVal 0&) 

Debug. Print "Exiting Command2_Cl i ck" 
End Sub 

Private Sub Opti onUl i ck( ) 

Debug. Print " Opti onl_Cl i ck" 
End Sub 

The BM_CLICK message works on any button-class control. This 
includes option buttons and checkboxes. 

— Marc Boorsiitein, Framingham, Mas^cliusetts 



VB4/32, VB5, VB6 

Level: Intermediate 

Prevent Duplicate Listbox Entries 

This useful code listing prevents users from entering duplicate 
entries into a listbox or modifying existing listbox entries. While 
the code prevents users from adding duplicate entries, you 
can modify the True condition of the If block in the Add_New 
procedure to suit your needs. Declare the constant, LB_ 
FINDSTRINGEXACT and the SendMessage function declaration in 
a BAS module: 

Declare Functlan SendMessag,eB,yString: Lib _ 

"u5er32" Alias "SendMessageA" (ByVal hWnd As _ 
Long, ByVal wMsg As Long, ByVal wParam As „ 
Long, ByVal IParam As String) As Long 

Public Const LB_FINDSTRINGEXACT = 8.H1A2 

This function uses the SendMessageByString API and returns 
either the existing item's index or -1 . If it returns -1 , you can add the 
item: 

Function ChkLi stDupl i cates( chwnd As Long, _ 
StrText As String) As Boolean 

ChkListDuplicates = (SendMessageByString(chwnd, _ 
LB_FINDSTRINGEXACT, -1, StrText) > -1) 

End Function 

If the LB_FINDEXACTSTRING message returns a value of -1, no 
match was found, so ChkListDuplicates returns False. You can use 
this value to determine whether to add a new item to your list: 

Pri vate Sub Add_New( ) 
Dim user As String 

user- InputBox{ "Add ListBox Entry", "Test Project") 
If Len(user) Then 

If Not ChkListDuplicatesdistl.trWnd, _ 
Trim(user)) Then 
Li stl .Addltem TrimCuser) 
Else 

MsgBox "Duplicate Names can not be " & _ 
"added." & vbCrLf & "Please " & _ 
"make sure you are not adding " & _ 
"duplicate names.", vbExcl amati on , _ 
"Vest Project: Invalid Operation" 

End If 
End If 
End Sub 

— ^Kedar Sathe, Houston, Texas 



VB4,VB5,VB6 

Level: Intermediate 

Load III Graphics From tlie Resource File 

Many VB programmers haven't harnessed the power of VB6's 
resource editor. They still use traditional LoadPicture or other 
primitive calls to load bitmaps and icons. Before VB5, loading 
pictures into controls was somewhat harder, because of the 
inherent troubles associated with specifying the path and filename 
of the resource. With the resource editor, it's easy to store icons, 
strings, and bitmaps in a single RES file. I had to load the same 
picture for several CommerndButton controls in a current project. 
I set the Style property of the CommandButton to I (Graphical) 
and the Tag property to "calendar" so my app would know to load 
calendar.bmp. I then added cmd saved this BMP in a resource file 
and set the ID to "calendar." 

First paste this code into the general section of a form: 

'loads ioons/bmps from resource files. 
Sub Fill PieturesCpsdFrm As Form) 

' desired form is passed as an pararo:etep. 

Dim lcI_Ctrl As Control 

For Each "1t;l_Ctrl In psQFrm . Contr o'i s 
' controls collection is used here. 
If LCase( 1 cl_Ctrl .Tag ) = "calendar" Then 
' checking the tag property. 
Set 1 cl_Ctrl . Pi cture = _ 
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LoadResPicture(lct_rtrl .tag, vbResBitmap) 

End If 

' extra code could have been added for 
' loading other picture files by setting 
' the tag property accordingly. 
Next 
End Sub 

Then call this function from the Form_Load event: 

Private Sub Form_Load() 
Call FillPicturesCMe) 
End Sub 

— Jigjhnu Bhattacharya, Jersey O^, New Jersey 

VB3 and up 

Level: Intermediate 

Convert a Decimal Number to Base N 

Here's a function that converts a decimal number (base 10) to 
another base number system. Each digit position corresponds to 
a power of N, where N is a number between 2 and 36. In other 
words, if a number system's base is N, then N digits are used to 
write numbers in that system. For example, the base 2 number 
system (binary) uses the digits and 1, while the base 20 system 
uses digits through K. 

The ConvertDecToBaseN function accepts a double-value deci- 
mal number and a byte-value representing the base number 
between 2 and 36. By default, the base value used is 16 (hexadeci- 
mal). The decimal number is converted to a positive number if it's 
negative. This function is useful for representing large numbers as 
strings, using fewer digit positions. I developed it to help reduce 
the footprint of several large numbers used in constructing a 16- 
character unique string ID. (Creating a complementary function to 
convert a base N number back into a decimal would be a great 
exercise.) 

Public Function ConvertDecToBaseNC ByVal dValue As Double, _ 

Optional ByVal byBase As Byte = 16) As String 

Const BASENUMBERS As String = _ 

"0l23456789ABCDEFGHUKtMN0PQRSTUVWXYZ" 

Dim sResult As String 

Dim dRemainder As Double 

On Error GoTo ErrorHandler 
> sResult = "" 

If (byflase < 2) Or (byBase > 36) Then GoTo Done 

dValue = Abs(dValue) 

DO 

dRemainder = dValue - (byBase * Int((dValue / byBase))) 
sResult = Mid$(BASENUMBERS, dRemainder + 1, 1) & sResult 
dValue = Int(dValue / byBase) 

Loop While (dValue > 0) 

Done : 

ConvertDecToBaseN = sResult 

Exit Function 
ErrorHandl er : 

Err. Raise Err. Number, "CowertDecToBaseN" , _ 
Err. Description 
End Function 
Sample usage: 

ConvertDecToBaseN(999999989999#, 36) 
'Returns 'CREegieR 

— Peter Rodrigueit, received by e-mail 

VB3 and up 

Level: Beginning 

Tile With Liglitweight Image Control Arrays 

I write apps for companies where computer know-how is at an all- 
time low. Most applications scare people to death. However, Web- 
style forms and graphic buttons present soothing enough inter- 
faces that they can be inviting to users. 

I wanted my forms to look just like a Web page, so I devised a 
method to replicate and tile one Image control across a form. To 
achieve this effect, add cin Image control to your form, set its Index 
to zero, set Visible to False, and set an appropriate background 
image for the Picture property. Pass yout form to the 

14 



CreateBackgrotind routine ductiig its Load event: 

Pri vate Sub l-oriiuLoad( ) 

Call CreateBackground(Me) 
End Sub 

Public Sub CreateBackground(f rmCal 1 ingParent) 
Dim ITilesY As Long, ITilesX As Long 
Dim 1 Left As Long, ITop As Long 
Dim olmg As Image 
Dim X As Integer 

Set olmg = f rmCal 1 1 ngPargnt. ImagelCO) 
ITIlesX = olmg. Width 
ITilesY = olmg. Height 
Do While ITop < Screen. Height 
){ ^ ;X -H 1 

LOad frmCall ingParent. Imag^KX) 

Set olmg = f rmCall 1 ngParent . ImageK X) 

With olmg 

.Left = ILeft 

.Top = ITop 

.Visible = True 
End With 

1 Left - 1 Left + ITilesX 
If ILeft > Screen. Width Tti€fj 
1 Left = 

ITop = ITop + ITTleSY 
End If 
Loop 
End Sub 

— CIraig R. Gray, Clinton Townghip, JMclii^ 

VB6 

Level: Intermediate 

Use Components and the internet for Easy Maintenance 

I'm developing a database system for a distant customer with a 
slow Internet connection. The system imports data and generates 
reports. The problem with importing and generating reports is 
that, over time, both the import file's format and the report's 
layout change. 1 can't send the whole system to him because it 
takes several hours to download. 

To ease maintenance, I've separated the importing and report- 
ing functions in an ActiveX DLL component of "Internet 
downloadable" size. When the customer asks me to make a change, 
I change the code and publish the ActiveX DLL component with a 
Package and Deployment Wizard to my Web site. 1 then send my 
customer an e-mail with a URL for the HTML hie generated by the 
Package and Deployment Wizard. The updated importing and 
reporting functions are quickly downloaded and installed auto- 
matically on his system when he clicks on a hyperlink. 
— Thomas U. Nielsen, Copenhagen, Denmarlc 

VB4, VB5, VB6 

Level: Intermediate 

Implement a Context Stack 

Isolating the source of an error in a method containing many nested 
method calls can be difficult. If you haven't written comprehensive 
error-handling code in every method and property you write, or if you 
propcigate errors up the call chain, an error handler in a high-level 
method won't be able to identify whether a trapped error occurred in 
the high level method Itself, or whether it's the result of an unhandled 
error encourtered further down the call chain. 

Tracking execution context can be a relatively painless strat- 
egy to isolate the source of an error. Do this by declaring a global 
object that implements a Cedl stack used by each method in your 
project. I call this object an ErrorContext object. You use the 
object by pushing the context — the component.module.method 
name — as each method begins, and popping it off the stack as each 
method terminates normally. Methods without error handlers 
terminate immediately and pass control up the call stack when an 
error occurs. The procedure containing the error can be identified 
by checking the Icist context pushed onto the call stack. 

The ErrorContext object I use for this purpose contains three 
methods anA one read-only property: 
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• PushContext (called at the start of each method). 

• PopContext (called at the normal termination of each method). 

• Resynch (to resynchonize the stack after a runtime error). 

• ErrContext (a read-only property that returns the last context 
string pushed onto the stack). 

To use the object, declare a global instance of the object in a 
public module, and call PushContext at the beginning of each 
method and PopContext immediately before exiting the proce- 
dure. Use ErrContext to check the context string at the top of the 
error stack. Use Resynch to resynchronize the call stack after an 
error, because PopContext won't be called by the lower-level 
procedures. This sami^le code omits explicit declarations and 
some error-checking code: 

ErrorContext Object: 

Private Contextstack( ) As String 

Sub PushContext( Context As String) 

upper = UBound(Contextstack) + 1 

ReDim Preserve Contextstacktupper) 

ContextstackC upper) = Context 
End Sub 

Sub PopContext () 

upper - UBound(Contextstack) - 1 

ReDim Preserve Contextstacktupper) 
End Sub 

Property Get ErrContextO As String 

upper = UBound(Contextstack) 

ErrContext = ContextstackC upper) 
End Property 

Sub Resynch(Context As String) 

Do While ErrContext <> Context 
PopContext 

Loop 
End Sub 

Private Sub CI ass_Ini ti al ize( ) 

ReDim Contextstack(O) 
End Sub 

Here's a sample of how you'd use the Error context object in a 
form module. First, declcire the ErrorContext object in a standard 
module: 

Public Erx as New ErrorContext 

In each method and property of your project, use the PushContext 
and PopContext methods as you enter and exit each routine: 

Option Explicit 

Const mconModPath = "MyProject.MyForm." 

Private Sub Commandl_Cl ick( ) 

Const Context = mconModPath & "CommandUlIck" 

erx . PushContext Context 

On Error GoTo StdError 

MySubl 'call chain starts here 

erx. PopContext 
Exit Sub 
StdError: 

MsgBox "An error occurred i n " & _ 

erx . ErrContext & vbNewLine & Err. Number & _ 
vbTab & Err . Descri pti on 

erx. Resynch Context 

'if the error occurred in a subproeedure, use resynch 
'to pop context until Context = erx. ErrContext 
erx. PopContext 

'make sure to use PopContext at each exit point. 
End Sub 

Sub MySubl ( ) 

Const Context = mconModPath & "MySubl" 

erx. PushContext Context 

MySub2 

erx . PopContext 
End Sub 
Sub MySub2( ) 

Const Context = mconModPath & "MySubE" 

erx. PushContext Context 



Dim a As Long 

a = 1 / ' force a divide by zero error, 
erx . PopContext 

End Sub 

The error handler in Command_Click correctly identifies that the 
division by zero error occurred in MySub2. While this approach 
entails adding three lines to each procedure, it can significantly 
decrease the time necessaryto trace deep into call chains to locate 
the source of an error. 

— Jodi Kramer, Los Angeleg, California 



VB6 

Level: Advanced 

Use the VB Response Obje<t to Generate Dynamic 
HTML Pages 

I researched Windows Script Components (WSC) and Wcis inter- 
ested in their capability to integrate with ASP. I tried integrating a 
VB DLL with ASP. I included a reference to the Microsoft Active 
Server Pages Object Library (ASP.dll) in the DLL and used the 
Response object to write my HTML. I was surprised to find it 
worked when I tested it. It meant I could create a DLL that had 
common reusable routines for creating lists and filling combo 
boxes. The possibilities are endless, all in compiled VB DLL code. 

The DLL has a method ceilled ShowRecordSet that has four 
parameters: 

• StrConnectString (the database connect string) 

• StrSQL (the SQL command to execute) 

• StrHeading (a heading for the table) 

• ASPResponse (the reference to the Response object of the ASP 
page) 

The DLL connects to the database, executes the query, and 
writes out an HTML table with a header and detail line for each row 
in the recordset. Use this DLL CRShtml class code: 

Opti on Expl i ci t 
'Color constants 

Const PageBgColor As String = #F5F5F5""" 
Const TableBgColor As String = """#8F9FE9""" 
Const ShadeBgColor As String = #C9C9C9""" 
Public Sub ShowRecordSet(strConnectStri ng _ 

As String. strSQL As String, strHeading _ 

As String, ASPResponse As ASPTypeLibrary. Response) 
'Purpose: This method connects to datasource. retrieves 
■'the recordset, and writes HTML output via the Response 
'object. Must have a reference to the Microsoft Active 
'Server Pages Object Library (ASP.dll) 
Dim intDetallCount As Integer 
Dim strRowBgCol or As String 
Dim cnn As ADODB. Connection 
Dim rs As ADODB . Recordset 
Dim fldField As ADODB. Field 

Set cnn = New ADODB. Connection 

Set rs = New ADODB . Recordset 

cnn. Open StrConnectString 

Set rs = cnn . Execute( StrSQL) 

With ASPResponse 

.Write "<TABLE CELLPADDING=3 BORDER=" "0" ">" 
.Write "<tr>" 

.Write "<td wi dth-" "100%" " height=""18" 
" colspan = " & rs . Fiel ds . Count & _ 
" bgcolor=""#666699"''><font SIZE=""4'' 
" FACE='"'Verdana"'' color-""#FFFFFF'"'>'' _ 
& StrHeading & ''</f ont></td>'' 

.Write "</tr>" 

'create the column headings from the field names 
.Write " <TR>" 

For Each fldField In rs. Fields 

-Write " <T0 bgcolor-" TabteBQColor _ 
& ">" & fldField. Name i •</JU>' 

Next 

.Write " </TR>" 

'process each record building rows in table 
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intDetail Count - 1 
Do While Not rs.EOF 

.Write " <TR>" 

'Shade each alternating row 

If (IntDetailCount Mod 2) = Then 
strRowBgCol or = ShadeBgColor 

El se 

StrRowBgCol or = PageBgColor 
M.' If 

For Each fldField In rs. Fields 
.Write " <TD bgcolor =" & _ 
StrRowBgCol or & ">" & _ 
fldField. Value & "" & "</TD>" 

Next fldField 

.Write " </TR>" 

rs .MoveNext 

irtDetai ICount = IntDetailCount + 1 
Loop 

'close the table and objects 

.Write "</TABLE>'' 
End With 
rs .CI ose 
cnn .CI ose 
Set rs = Nothing 
Set cnn = Nothing 
End Sub 

Test Active Server Page: 

<HTML> 

<BODY bgcolor="#F5F5F5"> 

<H2>Using a Server-side VB DLL with a reference to 

the Response 0bJect</H2> 

<% 

Dim objRSServer 
'Instantiate object 

Set objRSServer = Server. CreateObjeGtC'RSServer. CRShtral ") 
'Call Method 

objRSServer. ShowRecordSet "DRIVER-ISQL 
Server} ;SERVER=ServerName;DATABASE=DBName; 

UID-UserID:PWD=UserPwd ; " . "SELECT 
FirstName + ' ' + LastName as Employee, 
Phone. Email FROM tblEmployee ORDER BY 
LastName, FirstNsme", "Employee List", 
Response 

%> 

</BODY> 
</HTML> 

— Brian Bamett, Woodstock, Georgia 



VB4,VB5,VB6 

Level: Intermediate 

Wrap Date Functions in a Class 

I've been working on a class module called cIsDatelnfo that returns 
various properties of a given date, and using it in some monthly trend 
graphs. 1 had to come up with the number of weekdays — not counting 
weekends — a given date was from the first of the month. The 
clsDatelnfo.WeekDajOf Month property returns the answer in a flash: 

Option Explicit 

' clsDatelnfo 

' Chuck Spohr 9/23/1999 

' Set the DateToCheck property of this object and 
' the other properties wiTl return various useful 
' values about that date 
Private mdtDate As Date 

Public Property Let DateToCheck.(pdtDate As Date) 

mdtDate - pdtDate 
End Property 

Public Property Get DateToCheck( ) As Date 

DateJ oCbeck ^ mdtDate 
End Property 

Public Property Get WeekDayOfMonthC ) As Integer 
If Me.DayOfWeek = vbSunday Or Me.DayOfWeek = _ 
vbSaturday Then 



WeekDayOfMonth = Q 
Else 

WeekDayOfMonth = (5 * ( Me . WeekOfMoiit h -!))-_ 
Me. Fi rstDayOfWeekOfMonth + Me.DayOfWeek + 1 

End If 
End Property 

Public Property Get WeekOfMonth( ) As Integer 

WeekOfMonth = Week Me . Fi rstWeekOfMonth + 1 
End Property 

Public Property Get Fi rstWeekOfMonthC ) As Integer 

Fi rstWeekOfMonth =■ DatePart( "ww" . Me . Fi rstOayOfMonth ) 
End Property 

Public Property Get Fi rstDayOfWeekOfMonthC ) As Integer 

Fi rstDayOfWeekOfMonth = DatePart( "w" „ M«.Fi rstDayOf Month) 
End Property 

Public Property Get WeekO As Integer 

Week - DatePart( "WW" , mdtDate) 
End Property 

Public Property Get Fi rstDayOfMonth( ) As Variant 
Fi rstDayOfMonth = DateSeri al (DatePartC "yyyy " , _ 
mdtDate), DatePartC "m" , mdtDate). 1) 

End Property 

Public Property Get DayOfWeekO As Integer 

DayOfWeek = DatePart( "w" , mdtDate) 
End Property 

Private Sub CI ass_Ini ti al i ze( ) 

mdtDate = NowO 
End Sub 

— Chuck Spohr, Balwiii, Missouri 

VBS,VB6 

Level: Beginning 

Enter Data on an MSFIexGrid 

You can use MSFIexGrid for data entry without using additional 
ActiveX controls. For this, use the KeyPress and KeyUp events. To 
use the MSFIexGrid for data entry, add the grid — ^named 
FlxGrdDemo — to a form and copy this code: 

Private Sub FI xGrdDemo_KeyPress ( KeyAsci i As Integer) 
Select Case KeyAscii 
Case vbKeyReturn 

' When the user hits the return key 

' this code'll move the next cell or row. 

With FlxGrdDemo 

If .Col + 1 <= .Cols - 1 Then 

.Col = .Col + 1 
El self .Row + 1 <= .Rows - 1 Then 
. Row = . Row * 1 
.CoT = 
■ Else 

.Row = 1 
.Col = 
End If 
End With 
Case vbKeyBack 

' Delete the previous character when the 
' backspace key is used. 
With FlxGrdDemo 

If TrtmC.Text) <> "" Then 

.Text = Mid( .Text, 1, Len(.Text) - 1) 
End With 
Case Is < 32 

' Avoid unprintable characters. 
Case Else 'Else print everything 
With FlxGrdDemo 

.Text - .Text & ChrCKeyAscii ) 
End With 
End Select 
End Sub 

Private Sub FI xGrdDemo_KeyUp( KeyCode As _ 
Integer. Shift As Integer) 
Select Case KeyCode 
' Copy 

Case vbKeyC And Shift - 2 ' Control + C 
CI i pboard . CI ear 
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Cl i pboa rd . SetText Fl xGrdDemo . Text 
KeyCode = 
' Paste 

Case vbKeyV And Shift = 2 "Control + V 
FlxGrdDemo.Text = Cl ipboard .GetText 
KeyCode - 

' Cut 

Case vbKeyX And Shift - 2 'Control + X 
Clipboard. Clear 

Cl 1 pboard . SetText Fl xGrdDerao .Text 
FlxGrdDemo.Text = "" 
KeyCode = 
' Delete 

Case vbKeyDelete 

FlxGrdDemo.Text - "" 
End Select 
End Sub 

You can set the FillStyle property to FlexFillRepeat, which makes 
the changes to all the selected cells. 

— Srinivasa S. Sivakumar, Chicago, Illinois 



VB6 

Level: Advanced 



>tV'> >f >V Five Star Tip 



Make Windowless, Transparent UserControls Clickable 

Microsoft has documented a problem with windowless User- 
Controls that have a trsuisparent Backstyle. Once a form contains 
such a control, you can't select it by clicking on It with the mouse; 
this meikes it tough to move the control. (See Microsoft Knowledge 
Bcise article Q188234 for details.) Use tliis code workaround that 
allows you to click on and move these controls at design time. 
First, it uses the HitTest event to make the control always act as if 
it is clicked, regardless of mouse coordinates. This usage causes 
the UserControLClick event to fire, which the owner can observe 
through the raised Click event: 

Private Sub UserControl_HitTest(X As Single, Y _ 

As Single, HitResult As Integer) 

' Always act as if the control was hit 

If HitResult = vbHitResultOutside Then 
HitResult = vbHitResultHit 

End If 
End Sub 

Public Event Click( ) 
Private Sub UserControl_C11 ck( ) 
!■: ' Let the form handle the click 
RalseEvent Click 
End Sub 

In production code, if only portions of the control shiould be 
clickable in run mode, test for design mode vs. run mode in the 
HitTest event. Use this method only in design mode, smdyour own 
cusl^un t^it ip nin mod^ 

' 



VB3 and up 

Level: Intermediate 



Convert Static Variables for More Speed 

Referencing a static local variable in a procedure is two to tliree 
times slower than a regular local, dynamic variable. If your proce- 
dure demands every last bit of speed possible, convert all static 
variables into module-level variables. However, this approach has 
a nasty design implication — the procedure becomes less self- 
contained. You must remember to copy and paste the module- 
level variable when you reuse the procedure in another project. 
But this approach might make sense in an extremely intense 
routine. Further, referencing a variable declared at module level is 
faster than referencing a global variable declared in a separate HAS 
module. If you don't need to share a variable among all of an app's 
forms and modules, you should declare it in the only form or 
module that uses it. 

— Jai Bardhan, Lowell, Massachusetts 



VB3 and up 

Level: Beginning 

Change Dates With Plus and Minus Keys 

This simple piece of code saves a lot of headaches when it comes 
to altering dates. It cdlows you to use the plus and minus keys to 
increment and decrement date values easily. This example as- 
sumes there is a textbox neimed Textl on a stetndard VB form: 

Private Sub Fonn_Load() 

' Make sure that there Is a valid date in Textl. 

Textl. Text = Date 
End Sub 

Private Sub Textl_KeyPress( KeyAsci i As Integer) 
' Pass handling to generic routine. 
KeyAsci 1 - DateHandl er( KeyAsci i ) 

End Sub 

Private Function DateHandlerCKeyAsci 1 As _ 
Integer) As Integer 
Dim nRet As Integer 
This routine adds or subtracts days, based on the 
key pressed, from a date value found in the control , 
represented by the form's ActiveControl property 
(usually a TextBox). The routine can be altered to 
add and subtract months and years too. 
On Error GoTo ErrorHandler 

' Constants which represent the '+' & '-' keys. 

Const KeyAdd =43 
Const KeySubtract = 45 

' this constant is here because '+' & '=' are on the 
' same key for most keyboards, but are sometimes inverted. 
Const KeyEqual s = 61 
' Determine the value of the key pressed, and 
' take the necessary action. 
Select Case KeyAsci i 

Case KeyAdd, KeyEquals 

Me. ActiveControl .Text = DateAdd( "d" , _ 

1, Me.ActiveControl ) 
nRet - 
Case KeySubtract 

Me.ActiveControl .Text = DateAddC "d" , _ 

-1, Me.ActiveControl) 
nRet = 
Case Else 

nRet = KeyAsci 1 
End Select 

' Move the start position to, the end of the 
' text for a cleaner look. 
If nRet - Then 

Me.ActiveControl .SelStart = Len(Textl.Text) 
End If 

' Return a new KeyAscii value. 
DateHandl er = nRet 
Exit Function 

ErrorHandl er : 

DateHandler = 

Exit Function 
End Function 

— rSluBBpe Phari«» IMevBia, Bmirii ColmnMa, Canada 

VB6 

Level: Beginning 

Count the Occurrences of a Character or Substring 

VB6 introduced the Split function, which returns a zero-based, 
one-dimensional cirray contcuning a specified number of substrings. 
Although this function is useful in itself, you Ccin also use it in other 
useful ways. For example, by combining the UBound and Split 
functions, you can count how many times a substring — or stngle 
chctfacter — appears inside another string: 

Function InstrCountCSource As String, _ 
SearchString As String) As Long 
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If Len(Source) Then 

InstrCount = UBound(Spl itCSource, SearchString) ) 
End If 
End Function 

— Gilberto Zayag Ramos, Velasco, Cuba 

VB3 and up 

Level: Beginning 

Simplify Programatic Selection in Combos 

Here's a useful procedure to position a ComboBox according to a 
value of the ItemData property or the List property. It's useful to 
position a ComboBox with values taken from a database, and this 
way, become independent of the index property. For example, you 
might fill a ComboBox with the serial port's baud speeds, including 
a description in List and the value in bauds in ItemData: 

Public Sub LI enarComboCpCombo As ComboBox) 
With pCombo 
.Clear 

.Addltem "1200 bps" 
.ItemData(O) = 120U 
.Addltem "2400 bps" 
.ItemDataCl) - 2400 
.Addltem "4800 bps" 
.IteiiiDataC2) - 48O0 
.Addltem "9600 bps" 
.ItemDataO) - 9600 
.Addltem "14400 bps" 
. ItemData(4) - 14400 
.Addltem "28800 bps" 
. 1 t.emData(5) - 28800 
. Li stindex = 
End With 
End Sub 

Public Sub Posi ci ona rComboC pCombo As „ 
ComboBox, ByVal pValor As Variant) 
Dim i As Integer 
If IsNumeri c(pVal or) Then 
' Search by ItemData 
For i = To pCombo. ListCount - 1 
If pCombo. ItemData (i 3 = pValor Then 
pCombo. Listlndex = 1 
Exit For 
End If 
Next i 
Else 

' Search by List 

For 1 = To pCombo. Li stCount - 1 
If pCombo. Li st( i ) = pValor Then 
pCombo. Li stindex = i 
Exit For 
End If 
Next i 
End If 
End Sub 

Private Sub cmdPosItemData„Cl ick( ) 

Posi ci onarCombo cboTest, 9600 
End Sub 

Private Sub cmdPosList_Cl ick( ) 

Posi c1 onarCombo cboTest, "4800 bps" 
End Sub 

— IM'^B M;. Raaato^ Coi)fe»ba, ArgeaUna 

VB4, VB5 

Level: Beginning 

Duplicate th« ipl Function for VB4 and VB5 

It's too bad Microsoft didn't create the Split function until VB6, 
but here's a function that duplicates it for VB4 and VB5 users . The 
only difference Is that with VB4 and W5, you must use a Variant 
to receive the Split data, wheres^ VB6 can also use a dynamic 
String array: 

Public Function SplitCaText As String, _ 
Optional vSrch As Variant) As Variant 
If IsMissingCvSrch) Then vSrch = " " 



Dim j As Long, k As Long, a As Strin® 

ReDim s(0) As String 
a = aText 

k = InStrCa , vSrch) 
Do Whi 1 e k 

If j > UBound(s) Then 

ReDim Preserve s(0 To j) As String 

End If 

stj) = Left$(a, k - 1) 
a = Mid$(a, k + Len(vSrch)) 
k = InStr(a, vSrch) 
j = J + 1 
Loop 

If Len(a) Then 

If j > UBound(s) Then 

ReDim Preserve s(0 To j) As Strlrg 
End If 
s(j) = a 
End If 
Spl i t = s 
End Function 
Dim vDat As Variant 
vDat = Spl itC "This is a test") 
' vDatCO) = "This" vDat(l) = "is", etc... 
—Matt Hart, Tulga, Oklahoma 

VB6 

Level: Intermediate 
Web-Enable Your Apps 

In today's world, you probably want to let your users browse the 
Web inside your app. You can add the Microsoft Internet Control 
to do this; however, the user must have Internet Explorer installed. 
Without it, the app fails to start. To solve this problem, remove the 
Microsoft Internet Control reference and load the control dyncuni- 
cally when Internet Ejqplorer is instadled. To load the control, use 
this code: 

Private ie As VBControl Extender 
Private Sub Forin_Load() 
On Error GoTo lEMissing 

Set ie = Forml .Control s .AddC "Shel 1 . Expl orer" , "wcIE") . 

i e. Vi si bl e - True 
lEMissing: 
End Sub 

Private Sub Form_Resize( ) 

If Not ie Is Nothing Then 

ie.Move 0, 0. Me.ScaleWidth. Me.ScaleHelght 

End If 
End Sub 

You can do multiple things with this object, such as change the 
visibility, but then the unique Internet Explorer properties and 
methods aren't available. For example, if you type "obj. Navigate 
sMyURL", VB tells you the object doesn't support this property or 
method. The secret is to use your object variable's Object proj)- 
erty like thiS: 

Private Sub Form_Activate( ) 

If Not ie Is Nothing Then 

ie. Object. Navigate "http://www.vbpj .com" 

End If 
End Sub 

— Eric Quist, Gothenburg, Sweden 

VB3 and up 

Level: Beginning 

Link the DataField to the Recordset 

The data control allows you to quickly linkcontrols and databases; 
however, not only is it far from flexible compared with the data- 
base-objects coding interface, it doesn't look great. I use the latter 
solution and assume most VB programmers do. But it's quite 
painful to add or alter several lines of code every time you put a 
new text field on a dialog. It's a waste of the DataField property, 
however; it Ccm be just as useful as the Tag property, and in this 
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case, it's more descriptive. So what if you write a few routines to 
simulatettiedata control's basic operations through the DatciField 
property? This simple rciutine loads data from a Recordset to all 
controls on a form: 

Public Sub ReadDataCfrm As Form, re as Recordset) 
Dim Ctrl As Control 
' Need to ignore errors on controls 
' that don't support databinding. 
On Error Resume Next 
For Each Ctrl In frm. Controls 
If Ctrl .DataField <> "" Then 

Ctrl = PC. FieldsCctrl .DataField) 
End If 
Next 'Ctrl 
End Sub 

You only need to put the field njune into the DataField property of 
involved controls at design time. By altering such routines, you 
can achieve more complex data hemdllng thein if you use data 
controls, as well as make reading, writing, and vedidation a lot 
simpler than doing everything memusdly. 

— Maitia Girard, Chicontiiiii, Quebec, Canada 



VB3 and up 

Level: Intermediate 

Use Loop Counters Even After Looping 

The value of a loop counter vEu-iable is incremented one beyond 
the set rsmge when the loop is completed. For example, if you use 
a For i = to 5...Next loop, i equals 6 when all loop iterations have 
been completed. If you use the For...Next statement with an Exit 
For statement, you can use the value of the loop counter variable 
to determine whether a condition was met during the loop. Here's 
one possible application of this technique, which can be applied 
when you have an array of values, each element of which has a 
unique value: 

Dim sText(lO) As String 
Dim i As Long 

' Initialize strings - A. B. C. D. ... 
For i = 1 To 10 

sText(i) = Chr$(Asc("A") + i) 
Next 1 

Suppose you want to find which element, if any, has a given 
value. You could use a Do.. .Until Loop and a flag: 

Dim i As Long 

Dim Is Found As Boolean 
i = 

Do While Not IsFound 
i = i + 1 

If i > 10 Then Exit Do 
If sText(i) = "J" Then IsFound = True 
Loop 

If IsFound Then 

MsgSox "Found J as element: " & i 
Else 

MsgBox "Could not find J" 
End If 

Or you can use a F6r...Next loop without a flag: 

Dim i As Long 

For i = 1 To 10 

If sText(i) = "J" Then Exit For 
Next i 

If i 10 Then 

MsgBox "Found J at element: " & i 
Else 

MsgBox "Could not find J" 
End If 

This search routine is shorter Md faster in the second csise. 

— ^Tom Mcormlck, Chelmsford, Massachusetts 



VB4, VB5, VB6 

Level: Beginning 

Clear Form's Controls With Quick Loop 

This code allows you to set a form's controls to a specific value. 
You Ccin use it, for excunple, when you want to clectf all textboxes 
in a form or when you vmnt to uncheck all checkboxes: 

Public Sub Clear(frm As Form) 
Dim ctl As Control 
For Each ctl In frm 

Select Case TypeName( ctl ) 
Case "TextBox" 

ctl .Text = "" 
Case "CheckBox" 

ctl, Value = vbUnchecked 
Case Else 

' handle others as needed 
End Select 
Next ctl 
End Sub 

— ^Daniel Augusto Ramirez Vlllasana, Mfadco Ctty, Mfadco 
VB3 and up 

Level: Intermediate 

Replace a String Within a String, Recursively 

I recently needed a substring replacement function for inserting 
code into a module, by reading the code from a file. Unfortu- 
nately, in my case, commas are interpreted as delimiters, and the 
insertion requires a lot of post formatting. So, I replaced all the 
commas in the originsd file with a question mark. That way, when 
the file is inserted into a module, the ReplaceString function 
checks each line, and the question mark is replaced with a 
comma, then inserted into the module. I initiedly considered 
using the fConvert function published in "Remove Unwsmted 
Characters" ["101 Tech Tips for VB Developers," Supplement to 
VBPJ, February 1999]. I compstfed the speed of the two functions, 
ReplaceString and fConvert, in a separate project, using the 
Windows API GetTickCount function. The recursive function is 
nearly four times ffister than the For...Loop. In situations where 
a single chsu-acter needs to be replaced with something different, 
it's a good way to go: 

Public Function Repl aceStri ngCstrT As String) As String 
Dim iposn As Integer 
Dim strF As String 
Dim strR As String 

' Function replaces one character with another. Using 
' recursion if the character is found to check if any 
' more such characters need to be replaced within 
' the string. strT is the string in which a character 
' or string in which replacement will take place. 
' StrF is the string which is to be replaced. 
' StrR the new or replacing string. 
StrF = "?° 
StrR = " , " 

iposn = InStrd, strT, strF) 
If iposn > Then 

MidCstrT, iposn, 1) - strR 

StrT = ReplaceStrlng(strT) 
End If 

ReplaceString = strT 
End Function 

— ^Matthew Grygorcewicz, Athetateme, Australia 

VB4/32, VB5, VB6 

Level: Intermediate 

Determine the File System Type 

With the advent of the FAT32 file system, you might want to use VB 

to determine the type of file system being used for a particular 
drive. This example is set for the C drive; change the variable 
sDrive to test other drives. Run this routine; the variable sResult 
contains the file system njune string: 



19 



For VB Developers 



Private Declare Function GetVol umelnformati on _ 

Lib "kernel32" Alias "GetVol umelnformati onA" _ 

(ByVal IpRootPathName As String, ByVal _ 

1 pVol umeNameBuf f er As String, ByVal _ 

nVol umeNameSi ze As Long, _ 

1 pVol umeSeri al Number As Long, _ 

1 pMaximumComponent Length As Long, _ 

IpFileSysteraFlags As Long. ByVal _ 

IpFileSystemNameBuffer As String, ByVal _ 

nFileSystemNameSize As Long) As Long 
Public Function Whi chFi 1 eSystemCByVal Drive _ 

As String) As String 

Dim sVolBuf As String * 2S5 

Dim sSysName As String * 255 

Dim 1 Seri al Num As Long 

Dim ISysFl ayb A:.. Long 

Dim 1 ComponentLength As Long 

Dim IRes As Long 

IRes = GetVol umelnformati on( Dri ve, sVolBuf, _ 

255, 1 Serial Num, 1 ComponentLength , _ 

ISysFlags, sSysName, 255) 
If IRes Then 

Whi ChFi 1 eSystem = Left$ ( sSysName , „ 
InStrCsSysName, Chr$(0)) - 1) 

Else 

Whi chFi 1 eSystem = "<unl<nown>" 
End If 
End Function 

— Dan Verkade, Ferris, California 



VB4, VBS, VB6 

Level: Beginning 

Iterate MDIChild Forms 

Sometimes it's useful to close — or perform some other common 
operation on — all the child forms in your MDl parent simulta- 
neously. For example, when a user relogs on to a database system, 
all the old child windows' data comes from a previous logon, and 
you just want to close all child forms. Simply iterate the Forms 
collection, checking the TypeOf on each form before testing its 
MDIChild property: 

Dim vForm As VSriant 
For Each vForm In Forms 

If Not TypeOf vForm.Is MDIForm Then 
If vForm. MDIChild Then 

Unload vForm 
End If 
End If 
Hext 'vFrom 

— Orville P. Chomer, Berwyn, nUnois 

VB4/32, VBS, VB6 

Level: Beginning 

Force Slider to Specific Intervals 

Try using a slider control in your UI if you're tired of combo boxes. 
Users find this control intuitive to understand and operate. For 
example, you might use the slider control to obtain values from a 
user in increments of $1,000. First, add the slider control to a form. 
Set the slider's Min and Max properties to the appropriate range 
for your app. Then, set the TickFrequency property equal to any 
interval of interest. Using the example, try setting the slider 
properties to: Min=l,000 and Max=10,000. Unfortunately, if a user 
drags the slider instead of clicking on it, values between the tick 
marks are returned. Here's a cool way to eaisily control this 
behavior. Place this code in the slider's Change event, substituting 
your control's name: 

Private Sub si BWi dth„Change( ) 

slBWidth - CInt(slBWidth. Value / slBWidth. 
TickFrequency) * si BWidth . Ti ckFrequency 
End Sub 

Now try it out to see how the control behaves. The result is the 
same cis scaling the slider from 1 to 10, then multiplying by a sceile 



factor for the value. The difference is that it now free-slides instead 
of jerking between ticks. 

-^Cteiatoph^ K. HaBwi^, j^s^ltog Helghte, Michigan 

VB3 and up 

Level: Beginning 

Use the MsgBox Wrapper to Replace OK 

Replace all MsgBox calls that display only an OK message with the 
following OkMsg sub. It automatically defaults the icon to 
vblnformation, and the title to a global constant defined at startup. 
None to all of the parameters can be passed to override the 
defaults. Another advantage is that the OkMsg sub saves and 
restores the state of the mousepointer, so you don't get an 
hourglass outside the MsgBox: 

Sub DkMsg( Opti onal sMsg As String = _ 

"Press OK to Continue", Optional vicon = _ 

vblnformation. Optional sTitle As String = APPNAME) 

Dim iMouse As Integer 

iMouse = Screen .MousePoi nter 

Screen . MousePoi nter = vbDefault 

MsgBox sMsg, vIcon, sTttle 

Screen. MousePoi nter = iMouse 
End Sub 

To call this sub, use this syntax: 

OkMsg "The Record is Saved" 

OkMsg "The date entered is out of range!", _ 

vbExclamation, "INPUT ERROR" 

Always declare the global constant: 

Global Const APPNAME - "Management System" 

Note: VBS users must change the optional parameters to required, 
and VB4 users must insert IsMissing checks to assign defaults to 
missing optional parameters. 

— Fabio A. Mir Sr., Galtliersbmg, Maryland 

VB4/32, VBS, VB6 

Level: Beginning 

Sort Non-String Items in a ListView 

Sorting ListView columns with numeric data can be a real pain. 
Nonstring sorting is possible with callbacks using custom com- 
parison functions, but this method's drawback is that the synchro- 
nization between the display and Listltems collection is lost. It's 
easier and more reliable to simply provide sortable data. Normally 
a list with the values 1,2,3,4, 10, and 20 sorts as 1, 10,2,20, 3, and 
4 — that's not very useful. A simple workaround is to "left-pad" the 
numeric data with spaces before setting the text value. Assume 
that you load a listviewfroin a recordset with Icist name, first name, 
and salary: 

Const MAX_WIDTH = 15 
Dim szSpaces As String 
Dim rs As Recordset 
szSpaces = SpaGe$CMAX_WIDTH) 
Do Until rs.EOF 

With ListViewl.Listltems.AddC, , rs{ " LastName" ! ) 

.Subltems(l) = rs ( "Fi rstName" ) 

.Subltems(2) - Right$(szSpaces I _ 
rs( "Salary"), MAX_WIDTH) 

End With 

rs.MoveMext 
Loop 

Now setting the ListView's Sorted property sorts the Salary col- 
umn in correct numerical order. 

— Amir Libennan, Pembvoke Pines, Florida 



W 



S^plemeiam Visual Basic Programmer's jBumM BEBKUAKY 2000 



VB3 and up 

Level: Beginning 

Ca(he Properties for Repeated References 

If you have to reference a control's property repeatedly, it's better 
to assign the property to a temporary variable, then use that 
variable. This technique is called property caching. For exjunple, 
if you need to assign tesct value in the Textl textbox to all elements 
in an array named arr, It's better to assign the vsdue to a temporary 
vEiriable and use it for the atssignment in the loop: 

tmp - Textl .Text 
For i = 1 To UboLind(arr) 
arrCi ) = tmp 

' Here use tap instead of using Textl. Text repeatedly 
Next i 

— Jal Bandhan, Lowell, Masaachusetts 



VI6 

Level: Intermediate 

Load a Combo Box Array With a Compound Recordset 
in One Call 

This code takes an array of combo boxes and fills them using a 
compound recordset. This allows all combo boxes on a form to be 
loaded with one sub call. Match the recordsets in the same order as 
the combo boxes in the array. Specify the display item as the first 
field, and ItemData as the second field in the select statements: 

Sub Fi 1 1 ComboBoxArrayC cbArray As Variant, rsCbo _ 
As AOODB. Recordset) 
Dim cb As ComboBox 
For Each cb In cbArray 
cb. Clear 

If rsCbo. Fields. Count = 1 Then 

' If only 1 column then no index 
Do Until rsCbo.EOF 
cb.Addltem rsCbo(O) 
rsCbo.MoveWext 
Loop 
Else 

Do Until rsCbo.EOF 

' If 2 fields then 2nd is index 
cb.Addltem rsCbo(O) 
' Numbers only 

If IsNumericCrsCbod)) Then _ 

cb. ItemData(cb.NewIndex) = rsCbo(l) 
rsCbo.MoveNext 
Loop 

End If 

Set rsCbo = rsCbo.NextRecordset 
Next 

Set rsCbo - Nothing 
End Sub 

Here's an example of how to create a compound resultset and 
call the FillComboArray subroutine: 

Private Sub Form_Load() 
Dim sql As String 
Dim rs As New ADODB. Recordset 
Dim cn As ADODB. Connect! on 
Set cn = New ADODB. Connect! on 
With cn 

.ConnectionString = "driver=(SQL Server};" & _ 
"server=YOURSERVER:uid=sa;" & "pwd=;database=pubs " 

.Open 
End With 

sql = "SELECT au^lname FROM Authors; " & _ 
"SELECT Iname, job_id FROM Employee; " & _ 
"SELECT pub_name FROM Publishers" 

Set rs - New ADODB . Recordset 

rs.Open sql , cn 

FillComboBoxArray cboData, rs 
End Sub 

— Kirk Ward, Hendersonville, Tennessee 



VB4/32,VB5,VB6 

Level: Intermediate 

Determine tiie Correct Screen Dimensions 

The latest video drivers can change the display resolution without 
rebooting. Unfortunately, the Screen object doesn't always prop- 
erly return the new display size; it only remembers the display size 
when the app first used it. This behavior appears to be driver- 
dependent, idthough it might be produced by the operating sys- 
tem (it occurs on my Windows NT machine but not on my Windows 
98 system). U you need to determine screen dimaisions at any 
time other than the Fonn_Load event, use the Wndows API rather 
than the Screen object: 

Private Type RECT 

Left As Long 

Top As Long 

Right As Long 

Bottom As Long 
End Type 

Private Declare Function GetOesktopWindow Lib _ 

"user32" Alias "GetOesktopWindow" () As Long 
Private Declare Function GetWi ndowRect Lib _ 

"user32" Alias "GetWi ndowRect" (ByVal hwnd _ 

As Long, IpRect As RECT) As Long 
Public Function ScreenW1dth( ) As Single 

Dim R As RECT 

GetWi ndowRect GetDesktopWi ndowO , R 
ScreenWidth = R. Right * Screen. TwipsPerPlxelX 
End Function 

Public Function ScreenHeight( ) As Single 
Dim R As RECT 

GetWindowRect GetDesktopWi ndow( ), R 
ScreenHeight = R. Bottom * Screen. TwipsPerPixelY 
End Function 

— Matt HiMFt, Tnlga, Oklahoma 

VB3 and up 

Level: Beginning 

Produce Shrinlcing Text 

Use this code to get the shrinking text effect — similar to the 

opening of Star Wars: 

' Requires a Label and Timer on the form 
Private Sub Form_Load() 

With Me 

. BackCol or = vbBl ack 

.WindowState = vbMaximized 
End With 
With Label 1 

.Alignment = vbCenter 

.AutoSize = True 

.BackColor = vbBlack 

.Caption = "Shrinking Text" 

. Font . Name = "Arial " 

.Font. Size = 150 

.ForeColor = vbGreen 

.Visible = True 
End With 
With Timerl 

.Interval = 1 

.Enabled =■ True 
End With 

End Sub 

Private Sub Timerl_Timer( ) 
With Label 1 

If .FontSize > 2 Then 

.FontSize = .FontSize - 2 
.Left = (Me. Width - .Width) / 2 
.Top = (Me. Height - .Height) / 2 
Else 

.Visible = False 
Timerl . Enabl ed - False 
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End If 
End With 
End Sub 



— ^Michael linger, Brandon, Florida 



VB5, VB6, YBA (Access) 

Level: Intermediate 

Reattach and Refresh SQL Links 

You often need to reattach or refresh links in Microsoft Access. 
This code refreshes all currently linked tables to sync the attached 
tables with the server, then remove "dbo_" from all attached SQL 
Server tables. The two table Def loops allow you to re-syiic tahl^ 
after "dbo_" is removed: 

Dim tbDef As TableDef 

Dim db As Database 

Dim strDBLocati on As String 

On Error Resume Next 

CommonDial ogl . ShowOpen 

StrDBLocati on = CommonDial ssl.FileName 

If strDBLocation - ""' Then 

End 
End If 

Set db " 0penDatabase(strDBL(3,c8t1on) 
For Each tbDef In db.TableOefs 
' Refresh table links 

db .Tabl eDefsCtbOef. Name) . Refresh Li nl5 

Next tbDef 

For Each tbDef In db.TableOefs 

' Remove all dbo_'s froin tables 

If Left(tbDef .Name, 4) = "dbo_" Then 

tbDef. Name = Mid(tbDef .Name, 5. Len(tbDef .Name) - 4) 
End If 
Next tbDef 

— Michael Finley, Clarendon Hills, Illinois 



VB5, VB6 

Level: Advanced 



T^iV^f^V ^r Five Star Tip 



Undocumented Boolean Field Constant 

Consider the Data Definition Language statements: "ALTER TABLE 
[My Table] ADD COLUMN [My New Field] Single" and "ALTER 
TABLE [My Table] ADD COLUMN [My New Field] Double". 
According to Microsoft documentation, Double and Single are 
correct constants for field types dbDouble and dbSingle. Boolean 
is also indicated as tiie Type properly for dbBoolean, vet "ALTER 
TABLE [My Table] ADD COLUMN [MyNew Field] Boolean" doesn't 
work. Why? 

Further reading about the Boolean datatype in the DAO docu- 
mentation declares that Boolean is "A True/False or yes/no value. 
Boolean values are usually stored in Bit fields in a Microsoft .let 
database; however, some databases don't support this datatype 
" irectly." "ALTER TABLE [My Table] ADD COLUMN [My New 
ield] Bit" works. Ironically, nothing is listed in the table of Type 
properties for dbBit or Bit itself. 

Oldafapma City, Oklahoma 

VB5,VB6,VBS 

Level: Beginning 

Retrieve Recordset Fields Faster 

Suppose you have a table with this field: 

Customerjode 

You CM retrieve the field in meuiy ways: 

rs.(O) 

rs{ ''Customer_Code" ) 
rs.fields(O) 

rs . fi el ds ( "Cus tomer_Code " ) 

rs .fields.! tem( ) 

rs. fields. it em ( "Customer_Codp" ) 

In VBScript, the versions that use field indexes instead of ncunes 



are faster ernd the extended syntax — rs. fields. item(O) — is fastest. 
The reason: Although VBScript, like VB, supports default proper- 
ties, VBScript doesn't have to search manually for the default 
property of the object being referenced. 
— Mogtafa Ftad, Tanta, Egypt 

VB5, VB6 

Level: Intermediate 

Use Tag Property in SQL Statements 

When building SQL statements, use the Tag property to hold the 
Field Name and Data Format. 1 use a naming convention of str, int, 
dat, and so on to determine the datatype; the rest of the tag holds 
the field name in the database — such as strCompanyName, 
datStartDate, or intQuantity. This routine iterates through the 
controls on the form and determines whether the control has a tag 
(you should tag only the controls that hold data). The routine then 
checks the type of control — Textbox or MaskedEditBox — to deter- 
mine whether it should use the Text or FormattedText property. If 
the control has a value, it builds a string consistent with the 
datatype. Otherwise, it adds a Null value. After running through the 
controls, it combines the strings. You can then use the resulting SQL 
statement to execute an Insert operation into the databcise: 

Dim strSQL as String 

Dim strColumns as String 

Dim strValues as String 

StrSQL = "INSERT INTO [TableName] " 

' start SQL statement 

StrColumns - "(" 

' hold column names 

StrValues - "VALUESC 

' holds corresponding column values 

For Each Ctrl In f rmSi te . Control s 
' iterate thru controls 

If Len(ctrl .Tag) > Then 
' if no tag, do not use 

StrColumns = strColumns & Mid(ctrl .Tag, _ 

4) & ", " ' add column name 
Select Case TypeName( Ctrl ) 
' find control type 

Case "TextBox", "ComboBox" 
If LenCctrl .Text) > Then 
Select Case LeftCctrl .Tag) 
' find datatype, whether to 
' include single quotes or not 
Case "str" 

StrValues = strValues & _ 
"'" & Ctrl .Text & "' , " 
Case "int" 

StrValues = strValues & _ 
Ctrl .Text & " , " 
End Select 
Else 

StrValues - strValues :& "Null. " 
End If 
Case "MaskEdBox" 

If Len(ctr1 .Text) > Then 

Select Case Lef t$ ( ctrl . Tag , 3) 
' find data type, whether to 
' include single quotes or not 
Case "dat". "phn". "ipa" 
StrValues = strValues & _ 

& Ctrl . FormattedText _ 

8, " ' , " 
Case "int" 

StrValues = strValues & _ 
Ctrl . FormattedText _ 
& ", " 
End Select 
ETse 

strValues - strValues & "NuVI , " 
End If 
End Select 
End II 
Next 
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'remove last comma and space 

strColumns = Lef t$( strCol umns , Len(strColumns) - 2) 
strValues - Left$(strValues. Len(strValues) - 2) 

'add last parentheses 
StrColumns = strColumns & " ) " 
StrValues = strValues & ")" 
'combine strings 

strSQL = strSQL & strColumns & strValues 
— Blake Thomag, M^ilwi^ Randi, Colorado 

VB4, VB5, VB6 

Level: Advanced 

Export Records to CSV File for Excel 

Most of my end users use laptops, which can have a wide variety 
of spreadsheet software installed. I often use this function when 
working with database tables or queries to produce a spreadsheet 
when 1 don't know what program will be used to open it. The 
function takes any database table or SQL Select statement and 
turns it into a comma-delimited text file a user can open using 
Notepad, Excel, or any spreadsheet program, allowing you to send 
data easily to another user or program. In this sample, Db is a 
global object variable equal to the database and has already been 
set by the calling program. sSource is the table or SQL statement 
that needs to be im'itten to a spreadsheet: 

Public Function Tabl eToSpreadsheet( sSource _ 
As String. sFile As String) As Boolean 
On Error GoTo TableToSpreadsheet_Err 

■ SYNTAX: 

■ If TableToSpreadsheetCSELECT * FROM 

' Authors", "CiVTempXAuthors.csv") = True 
' Then.... 

Dim rsTemp As Recordset 
Dim sHeader As String 
Dim sRow As String 
Dim 1 As Integer 

Set rsTemp = Db.OpenRecordsetCsSource) 
With rsTemp 

Make sure there are records to write 
If .RecordCount = Then 

TableToSpreadshett = False 

.Close 

Set rsTemp = Nothing 
Exit Function 
End If 

Create new target file 
Open sFile For Output As #1 
' Write the header row 
For i = To .Fields. Count - 1 

If i = Then 

sHeader = .FieldsCi ) .Name 

Else 

sHeader = sHaader & " , " & . Fi el ds(i ) .Name 

End If 
Next i 

Pri nt y/1 . sHeader 

' Loop through the table and write data rows 
. MoveFi rst 
Do Until .EOF 

For i = To . Fi el ds . Count - 1 
If i - Then 

sRow = . FieldsCi). Value & "" 
Else 

sRow = .Fields(i). Value & 
End If 
Next i 

Print #1, sRow 
.MoveNext 
loop 
.Close 
End With 

Close #1 ' Target file is complete 
Set rsTemp - Nothing 

' Release recordset, but NOT database objects 



Tabl eToSpreadsheet = True 
Tabl eToSpreadsheet_Exi t : 

Exit Function 
Tabl eToSpreadsheet_Err : 

Logit "Tabl eToSpreadsheet : " S Err . Descri pti on 

' LogIt is a function that creates an error log 

Resume Next 

' Most errors result in a blank cell and can be ignored. 
End Function 

— Robert Feldsien, Hillsboro, Missouri 

VB6 

Level: Beginning 

Use the Data Environment to Build Connection Strings 

If you usually use DSN-less connections with ADO, you know it can 
sometimes be a pain to figure out the correct connect string. In 
that case, you can let the VB Data Environment do the work. Start 
a dummy project, bring up the Data View windows, and connect to 
the database you're interested in. Add a Data Environment to the 
project and drag a table to it. Press F4 on the connection to bring 
up the properties for the connection. The ConnectionSource 
property then has the connection string you need. 
— Gary Merrifleld, Madison, Wisconsin 

VB6 

Level: Adveinced 

Handle Advanced Arrays With RDS 

Often you need a data structure similar to a two-dimensioned array 
or collection, but you need to manipulate it. For example, you need 
to sort on certain columns, filter certain rows, or find certain values. 
These functionalities are already available in the ADO Recordset 
object. The Microsoft Remote Data Services provides a way to store 
nondatabase data in a recordset using the DataFactory object. This 
class can help you create in-memory recordsets. Set the reference 
to Microsoft Remote Data Services Server 2. 1 Ubriiry: 

' code forRInMemoryRS 
Option Explicit 

Private df As New ROSServer. DataFactory 

Private vColInfoO 

Private nTotalCols As Long 

Public Function CreateO As ADODB. Recordset 

If nTotalCols > Then 

Set Create = df .CreateRecordSet(vCol Info) 

End If 
End Function 
Public Sub ClearO 

ReDim vColInfoCO) 

nTotalCols - 
End Sub 

Public Sub AddColumn(szName As String. _ 
nColType As ADODB . DataTypeEnum, Optional _ 
nColSize As Long = -1, Optional bNullable _ 
As Boolean = True) 
Dim vCol (3) 

ReDim Preserve vCol Info(nTotalCols) 
vCol (0) = szName 
vCol CI) = CIntCnColType) 
vCol C2) = CIntCnColSize) 
vColC3) = bNullable 
vCol InfoCnTotalCols) = vCbl 
nTotalCols - nTotalCols + 1 
End Sub 

Private Sub Class_Initial izeC ) 

nTotalCols = 
End Sub 

Use code like this: 

Dim rsMem As ADODB. Recordset 
Dim RMefliRS As new RInMemoryRS 
' Create Two Column Table 
RMemRS.AddColumn "Name", adChar, 10, False 
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RMemRS. AddCol umn "Age", adchar; 10 

Set rsMem=RMemRS. Create 

' Now. you can add the data to the "Kemory 

' Recordset" for example 

rsMem.AddNew 

rsMemlName = "John" 

rsMeralAge = 15 

rsMem. Update 

rsMem.AddNew 

rsMemlName = "Kevin" 

rsMemlAge = 25 

rsMein. Update 

You c£in meinipulate rsMem like this: 

rsMem. Fi 1 ter = "Age > 15" 
rsMem.Sort = "Age ASC" 
rsMem.Save szFileName 
rsMetn.Find "Name = 'John'" 



VB6 

Level; Beginning 

Clean Quotes From SQL Parameters With Replace 

If you've ever used SQL commands against the ADO Connection 
object, you might have had a problem allowing the user to enter 
text that cont^ns an apostrophe: 

ADOCon . Execute "Insert Into Em:p(Name) Select _ 
Si txtName.Text & 

This works fine if the name is Smith, but fails if the name is 
O'Connor. You can easily solve this problem with VB6's Replace 
function. Use the Replace function to parse the string and replace 
the single apostrophe with two apostrophes (n.ot double quotes): 

ADOCon . Execute _ 

"Insert Into EmpCName) Select '" _ 

& Replace(txtName.Text, "'", ) & 
— Scott Summers, Denver, Colorado 

VB5,VB6 

Level: Beginning 

Dynamically Populate MSFIexGrid Control 

If you use an MSFIexGrid control to display data returned in an 
ADO recordset, you can use this code to dyncimically populate the 
grid — including the header row — with the information in the 
recordset. You need an open ADO recordset named rst and a form 
containing an MSFIexGrid control named msfGrid: 

Dim cln As Field 
With msfGrid 
.Rows = 2 

.Cols - rst . Fi el ds .Count 
'get the number of grid cols 

. Fi xedRows - 1 
. FIxedCol s = 
.Row = 
.Col = 

For Each cln In rst. Fields 
.Text = cln. Name 

'populate header row with names of fields 
If .Col < .Cols - 1 Then .Col = .Col + 1 

Next 

Do While Not rst. EOF 

'loop thru recordset to populate grid 

.Row = rst . Absol utePosi ti on 

'move to the next row 

.Col = 

'reset ourselves back to column(O) 
For Each cln In rst. Fields 

If Not IsNulKcln. Value) Then 
.Text = Tr1iii(CStr(cln. Value)) 

El se 



.Text = "" 
End If 

If ,Col < .Cols - 1 Then .Csl = .Col + 1 
Next 

rst.MoveNext 

. Rows = . Rows + 1 

'add a new row to the grid 

Loop 

. Rows = . Rows - 1 

'remove the last roW' because it's blank 
.Row - 
End With 

— David George, Glen Bumie, Maryland 



VB5, VB6 

Level: Intermediate 



^l^iikiklk Five Star Tip 



Optimize Parametrized Queries With ADO Obfects 

When you write Insert statements, it can be difficult to accommo- 
date the possible values end users might enter into a text box. The 
most common task is replacing single quotes with double quotes. 
However, parameterized queries provide two benefits: You do not 
have to parse data entered by users — except for business rules; 
and SQL Server 7.0 Immediately caches the SQL statement: 

Dim cmd As ADOOB . Command 
Dim prm As ADODB . Pa rameter 
Set cmd = New ADOOB. Command 
Set prm = New ADODB . Parameter 
#ith cmd 

.ActiveConnection = CONNECTJTRING 
.CommandText = "INSERT INTO employees " & _ 

"(name) VALUESC?)" 
.CommandType - adCmdText 
Set prm = . CreateParameterC , adChar, 

adParamlnput , 50, Me. txtName.Text) 
. Parameters .Append prm 
.Execute 
End With 

Set cmd = Nothing 
Set prm - Nothing 



VB4,VB5,VB6 

Level: Intermedlcite 



Avoid Installation Problems Wif b tbe MsM«usr.diI in 
Win95 

If you're developing multiuser Jet-based applications, you prob- 
ably know about Microsoft's msldbusr.dll. It allows you to read the 
Jet lock files and get the correct number of connected users and 
computers they connect from. However, if you use this unsup- 
ported DLL, keep this gotcha in mind : If you include the DLL in a VB 
application installation and the user is running an early Windows 
95 version, the DLL disappears when the user shuts down his or 
her machine. 

To solve this problem, include an uncompressed copy of the 
DLL with your setup. If, after a reboot, the user manually copies the 
file back to the Windows system folder, it will stay there forever 
and give you back your functioncillty. This oddness does not occur 
when instedling to Windows 98 or NT. 

—Robert Smith, Kirkland, Washington 

VB5,VB6 

Level: Advanced 

Avoid Cursor Problems in Oroilc With Precompiled 
Queries 

ADO and RDO do not support Oracle cursor types; neither Microsoft 
nor Oracle drivers provide appropriate conversion. As a result, 
you cannot use Oracle stored procedures from VB or Active Server 
Pages C^SP) to retrieve a mu\t\ple-row recordset, instead, dynamic 
embedded SQL statements have to be passed. At this point, the 
performance degrades and the code becomes difficult to meiintain. 
A better alternative — besides using a third-party driver — is to use 
precompiled (prepared) queries with parameters. These queries 
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can be declared and precompiled when your application or com- 
ponent is first initialized (in the Sub Main, Initialize, or Load 
events, or include file). Later, you can assign the parameters and 
call queries — including stored procedures consisting of single 
SQL statements — by their names. This approach can be faster 
(both in development and performance) for implementing busi- 
ness logic using VB built-in functionality instead of customized PL/ 
SQL functions. It also can be applied with any RDBMS if you want 
to separate the database logic. (Queries are created by your 
component, are invisible in DBMS environment, and gone with 
your app). It's also easier to adapt and port components against 
different RDBMS-modifying SQL statements to a particular dia- 
lect — or using standard SQL — than convert vendor specific "glue" 
languages such as PL/SQL or Trcuisact-SQL. 
— Victor Kariovich, Bayonne, New Jersey 

VB4, VB5, VB6 

Level: Intermediate 

Sort DBGrid Contents With Re<ordset Refresh 

It's often useful to sort a DBGrid field in either descending or 
ascending order. You do this by using the HeadClick event and the 
DataField property of columns. You must change the query string 
(Qry) with one of your own (be sure it contains the code in bold): 

Private Sub DBGri cll_HeadCl i ck( ByVal Collndex As Integer) 
Dim Qry as string 

Qry = "SELECT * FROM MyTable WHERE Key-'" 

& txtKey & 
Qry = Qry & "ORDER BY " & _ 

DBGri dl. Columns (Col Index}. OatsFleld _ 

& " •' & DBGri dl. Tag 
datal . RecordSource = Qry 
datal . Refresh 
DBGridl . ReBind 

'toggle ASC and DESC keywords 
If DBGridl. Tag = "ASC" Then DBGridl. Tag _ 
= "DESC" Else DBGridl. Tag = "ASC" 
End Sub 

— Juan Jose Odioa, Nogales, Arizona 

YB6 

l-evel: Beginning 

Edit Field in DataGrid on F2 

Sometimes you want to give your DataGrid the ability to edit fields, 
while the original data in the field is highlighted. Normally, you can 
click on the field to start editing it. However, in case your users 
prefer to use the keyboard instead of the mouse, put this code in 
the grdDataGrid_KeyDown event: 

Private Sub grdDa taGri d_KeyDown( KeyCode _ 
As Integer, Shift As Integer) 
Select Case KeyCode 
Case vbKeyF2 

grdDataGrid.SelStart = 1 
SendKeys "(Endl" 
End Select 
End Sub 

— Decha Srivorapun, Bangkok, Thailand 

ASP 

Level: Intermediate 

Display Client-Side Message Box From Server-Side Script 

If you have a form validated using server-side Active Server Pages 
(ASP) code and you need to display an error message, you would 
normally display it at the top or bottom of your form and send the 
form back so the user can correct his or her mistetke. For excimple: 
The password you have entered is invcilid. Please try again." 

However, it would be nice if the error message popped up in a 
message box instead. The issue is how to make a client-side 
message box pop up when your code is executing on the server. 
The answer is simple: If your message is in the variable strErrMsg, 



use this code at the bottom of your ASP page displaying the form: 

<% 

if StrErrMsg <> "" Then 

' There Is an error, pop it up 

%> 

<SCRIPT LAN6UAGE=-JavaScript"> 

<!- 

alertC<%- strErrMsg %>'): 
II -> 
</SCRIPT> 

<% 

End 1f 

%■> 

After your page loads, it displays the error message in a message 
box. 

— Rama Ramachandran, Stamford, Connecticut 

VB6 

Level: Beginning 

Fix Justification Glitch in MSFIexGrid 

The MSFIexGrid tries to automatically determine how to justify 
text. If the first character is numeric, then that cell will be right- 
justified. If it is an alphanumeric character, then that cell will be 
left-justified . The problem arises when you try to display a freeform 
note in one of the cells. If the note starts with a number, such as "30 
days until renewal," MSFIexGrid right-justifies that cell. The solu- 
tion is to prefix all cells with a space: 

Sub FillGrid(rs As RecordSet) 
Dim sltem As String 
Dim i as Long 

'//Loop through the recordset 

rs . MoveFi rst 
Do Until rs.EOF 

'//Loop through the fields 

sltem$="" 

For i = To rs . Fi el ds . Count -1 

'Build the row to be inserted. vbTab 
'first so that we skip the fixedcol and 
'space so that everything is left justified 

sltem = sltem & vbTab & " " & rs.FieldsCi) 

Next i 

'//Add The row to the grid 
grd.Addltem sltem 
'//Move to the next record 
rs .MoveNext 
Loop 
End Sub 

— ^Pat Labelle, Ottawa, Ontario, Canada 

VB6,ASP 

Level: Advanced 

Pass Arrays ByVal From ASP Scripts to VB COM Objects 

In Microsoft Knowledge Base article Q2171 14, "How to: Implement 
Array Arguments in Visual Basic COM Objects for Active Server 
Pages," Microsoft says you can't pass an array to a COM method 
by value. However, you want to do this for Microsoft Transaction 
Server (MTS), so here is a workaround that does it ByVal. Add a file 
called test. asp with this Active Server Page (ASP) code to a virtual 
Internet Information Server (US) directory: 

<% 

dim PassArrayByVal Works 

dim ary( 1 ) 

dim iReturn 

ary(O) = "firstone" 

ary(l) = "Zndone" 

' pass the array to a non array declared variable then 
' pass the non array variable instead 
PassArrayByValWorks = ary 
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dim obj 

set obj = server. createobject {"prjFormCheck.clsFormCheck") 

iReturn = obj.fonncheckCPassArrayByValWorks, 0) 

«> 

<«=iReturn%> 

' build ActiveX dll named "prj FormCheck" , name 
' class "cl sFormCheck" add the function below 

' and start it in the VB IDE 
Public Function FormCheckCByVal _ 

arrFl dNameVal uePai rs As Variant, ByVal _ 
ErrLogType As Variant) As Variant 
If IsArray( arrFl dNameVal uePai rs ) Then 
FormCheck = "You can do it!" 
Debug . Pri nt arrFl dNameVal uePai rs(0) 
Debug. Print arrFl dNameVal uePalrsd) 
Else 

FormCheck = "Didn't work" 
End If 
End function 

Right-click on the test.asp file in the virtual directory of IIS and 
click on Browse. The browser should show "You can do it!" 
— Maiit Ifamter, received by e-mail 

VB5, VB6 

Level: Intermediate 

Add a Siripting Engine to Your Application 

It's easy to add scripting functionality to your VB project, espe- 
cially if you have been developing through classes all along. The 
more classes you program, the more objects you can expose to 
your script language. You can use both VBScript and JScript as the 
basis for your scripting engine. 

First, download the Microsoft Script Control from msdn. 
microsoft.com/scripting/scriptcontrol. Install the control accord- 
ing to the instructions provided. You might need to register the 
control manually (run regsvr32 on it). The footprint on this control 
is low; the whole download including help is only 243K. Next, 
create a script file with a text editor such as Notepad: 

Sub Main( ) 

MsgBox "Hello, world" 
End Sub 

Save it as c:\temp.txt and add this code to your application: 

Private Sub Commandl_Cl ick( ) 
Dim IFileNum As Long 
Dim sFileBuffer As String 
Dim sTemp As String 
iFileNum = FreeFileC) 

Open "c:\temp.txt" For Input As #iFileNum 
Do While Not EOF(i Fi leNum) 
Line Input #iFileNum, sTemp 
sFileBuffer = sFileBuffer & sTemp & _ 
vbCrLf 

Loop 
Close #1Fi1eNum 
Scri ptControl 1 . Reset 
ScriptControl 1. AddCode (sFI 1 eBuf fer) 
Scri ptControl 1. Run "Main" 
End sub 

You have now successfully implemented a scripting engine. 
You can expose objects in your application like this: 

Private Sub CommandUl i ck( ) 

Dim objMyClass As New MyCl assNameHere 
With dlgCommon 
.ShowOpen 

sFileName = .FUeName 
End With 

i Fi 1 eNum = FreeFi le( ) 

Open sFileName For Input As #lF1leNum 



While Not EOF( iFileNum) 

Line Input ^iFileNum, sTemp 

sFileBuffer = sFileBuffer & sTemp & vbCrLf 
Wend 

Cl ose #1 Fi 1 eNum 
Scri ptControl 1 . Reset 

Scri ptControl 1 .AddObject "Database", objMyClass 
Scri ptCont roll. AddCode (sFileBuffer) 
ScriptControU.Run "Main" 

End sub 

You can even try code such as this to give ad hoc capabilities 
to an appllcatjon: 

Scri ptControl 1 . ExecuteStatement "x = 100" 
MsgBox Scri ptControl 1 . Eval ( "X = 100") ' True 
MsgBox ScrtptControll.Eval ( "x = 100/2" ) ' False 
— Dan Newsome, Denver, Colorado 



VB5,VB6 

Level: Intermediate 

Connect to Microsoft Excel Using OLE DB 

Microsoft documentation says you can connect to Excel 97 or 
Excel 2000 using the Microsoft.Jet.OLEDB 4.0 provider. If you use 
the Microsoft ADO Data Control, however, you will have problems. 
From the property page for the ADO Data Control, choose the Use 
Connection String radio button and click on the Build button. 
Then, select the database name, choosing an Excel file as your 
database. Now, if you click on Test Connection, you get an error 
message saying the connectiMi failed because the file is in sui 
unrecognized format. 

But wait, there's hope! Acknowledge the error message and 
return to the General tab of the property petges. In the Connection 
String tedbox, add this code to the end of the connection string: 

Extended Properties = Excel 8.0: 

Your full connection string now looks like this: 

Provider=Microsoft.Jet.0LEDB.4.0; Data Source = FIleName; 
Extended Properti es=Excel 8.0; 

Now if you click on the Build button, then click on the Test 
Connection button, the connection is successful. 
—Michael J. McElwee, Highland Park, Illinois 

VB4,VB5,VB6 

Level: Intermediate 

Define Named Ranges in Excel Before Exeniting 
Queries Against Woriuheets 

Once you've established a connection to Microsoft Excel using 
OLE DB, you're not out of the woods. You still have to define a 
Neuned Range in Excel; then you Ccm treat this named range like a 
database table to perform queries against. To do this from Excel, 
select the range of cells you want to represent the table — column 
headers in the first row — ^then choose Name I Define from the 
Insert menu to bring up the Define Name dialog. Choose a neune for 
your table and click on OK. Be sure to have valid column n2unes or 
they vdll be renamed for you in the recordset or table you bring 
into your application. 

As a different approach, you might wish to do things through VB 
code. Using the Excel 8.0 object as a reference, this example takes 
a file specified by the FUeName string and create a named range 
whose name is specified by the variable TableName. This example 
chooses the used portion of the flrst sheet as the table range: 

Public Sub MakeExcelTable(FneNaiiie As String, _ 
Tablename As String) 
Dim BookXL As Excel .Workbook 
Dim RangeXL As Excel .Range 
Dim SheetXL As Excel. Worksheet 
Set BookXL = GetObJectC FUeName) 
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With BookXL 

Set SheetXL = BookXL.Acti veSheet 

Set RangeXL = SheetXL. UsedRange 

' Selects the entire used range of the first sheet 

.Names. Add TableName, RangeXL 

. Wi ndows . i tein( 1 ) . Vi si bl e = True 

. Save 
End With 

Set BookXL = Nothing 

End Sub 

— Michael J. McElwee, Highland Park, Illinois 



VB6 

Level: Advanced 



iV ,V%V >V ,V Five Star Tip 



Pass MTS Object References Safely Between 
Processes 

SafeRef returns a reference to the context wrapper instead of a 
reference to the object itself. You should never pass a direct 
reference of a Microsoft Trcinsaction Server (MTS) object to a 
client application. If you do, the client application can make a call 
on the MTS object without going through the context wrapper. 
This defeats the interception scheme set up by the MTS runtime. 
You should use the SafeRef function, which returns the outside 
world's view of an MTS object. Let's say you're writing a method 
implementation for an MTS object. In the method, you want to 
create an object of some class, then pass your own reference to the 
newly created object. To do this, you might write this code: 

Dim pSomeClass As CSomeCla.ss 
Set pSomeClass = New CSoiiieClass 
pSomeClass.SomeMethod Me 

■ IncQ-'~ect code 

However, this code is incorrect under MTS. The child object — 
pSomeClass — can invoke method calls on your object without 
going through the context wrapper. You should never bypass the 
Interception scheme set up by the MTS runtime. Instead, you 
should pass a reference to your object: 

pSomeCl ass . SomeMethod SafeRef (Me) 

' Cnrrect code 

By calling SafeRef, you allow the child object to establish a connec- 
tion that passes through the context wrapper. This technique 
keeps things in line with what the MTS runtime expects. The Me 
keyword is the only valid parameter you can pass when ceilling 
SafeRef with Visual Basic. 



VB4,VB5,VB6 

Level: Intermediate 

Convert Numbers to Excel Column Names 

Microsoft Excel labels its columns A though Z, then AA, AB, and so 
on. To access a given cell of an Excel sheet using the Excel object 
library reference, use a statement like this: 

Dim xlapp as New Excel , Appl icatton 
xl app. Range( "Al" ) . Val ue = 6 

This statement sets the first cell of the sheet to 6. If you convert the 
column names from alphabet-like (A through IV) to numbers, you 
can then go through a loop to access every cell in a given sheet or 
range. This function performs the required conversion. It works 
only through Column 701, but Excel doesn't allow nearly that many 
columns, so it's a nonissue: 

Private Function GetXLCoKCol As Integer) As String 
' Col is the present column, not the number of cols 
Const A = 65 'ASCII value for capital A 
Dim iMults As Integer 
Dim sCol As String 
Dim i Remain As Integer 

' THIS ALGORITHM ONLY WORKS UP TO ZZ. It fails on AAA 
If Col > 701 Then 



GetXLCol = "" 
Exit Function 
End If 

If Col <- 25 Then 

sCol = ChrCA + Col) 
Else 

iRemain = Int((Col / 26)) - 1 
sCol = ChrCA + iRemain) & GetXLCoKCol _ 
Mod 26) 

End If 

GetXLCol = sCol 
End Function 

-^chad J. McElwee, ifl^ilaBd Pait. niinois 

VB6 

Level: Advanced 

Use Asynchronicity for Speed 

If you need to run a complicated query that returns a large 
recordset, ADO 2.1 gives you the best of both worlds. Sometimes 
you just need to put a recordset into an Addltem type grid, or 
prepare it for a report. So, if you need to process the recordset as 
soon as the first record is fetched, you should start processing in 
the Execute_CompIete event of the connection object. If you can 
also use a disconnected recordset, you can set the ActiveCon- 
nection property equctl to nothing. Ttiis code might be the fastest 
way to process a large recordset with ADO: 

Private WIthEvents m^adoConEvent As ADGDB . Connection 
' the RS that enables the event Fetch_Compl ete 
' to be fired off Attribute 

Private WithEvents m_adoRstEvent As ADGDB . Recordset 
Private Sub GetRecordSetC ) 
Dim sSQL As String 

'A large or complicated SQL statemtent 
sSQL = "select a large complicate query" 
Set m_adoConEvent = New ADODB . Connect i on 
Set m_adoRstEvent = New ADODB . Recordset 
m_adoConEvent . Opeii "Connection String" 
m_adoRstEvent . CursorLocati on = adUseClient 
Me. Caption = "Started" 

'Do something to tell the user where the process is 
'at. Have the command execute and fetch at the same 
'time without interrupting workflow. 
m_adoRst Event . Open sSQL. m_adoCon Event , _ 

adOpenStatc. adLockReadOnly , adCmdText _ 

Or adAsyncFetch Or adAsyncExecute 
End Sub 

Private Sub m_adoConEvent_ExecuteCompl ete(ByVal _ 
RecordsAf f ected As Long. ByVal pError _ 
As ADODB. Error, adStatus As ADODB . Event StatusEnum , 
ByVal pCommand As ADODB . Command , ByVal pRecordset As _ 
ADODB. Recordset. ByVal pConnection As ADODB. Connection) 
Do Until pRecordset. EOF 

'start processing the recordset 
Loop 

End Sub 

Private Sub m_adoRstEvent_FetchCompl ete( ByVal pError _ 
As ADODB. Error, adStatus As ADODB . EventStatusEnum, 
ByVal pRecordset As ADODB. Recordset) 
Set pRecordset. ActiveConnection = Nothing 
'this will speed processing time 

End Sub 

Private Sub m_adoRstEvent_FetchProgress(ByVal Progress _ 

As Long, ByVal MaxProgress As Long, _ 

adStatus As ADODB . EventStatusEnum, ByVal 

pRecordset As ADODB . Recordset ) 

'let the user know work is happening 
End Sub 

By using both adAsyncFetch and adAsyncExecute, you can start 
processing even while you're returning data. 

— ^Darren Mcftnlney, Leawood, Kansas 
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Level: Beginning 

Enrase Query Names in Brackets te Aveid 
ADO/Jet Errors 

While using OLE DB Provider for Jet to manage Access databases 
through ADO from VB, follow this tip to help you access a query 
defined in your database. If the query name contains blank char- 
acters (ASCn code 32), supply this code, enclosing the name in 
brackets: 

'To access the query by the 
'Recordset object's Open inethod: 
rs.Open "[Name with blanks]". _ 'Etc. 

'To access the query by a Command object: 
cm.CommandText = "[Name with blanks]" 

If you don't, your progrsun will show a runtime error when you try 
to open the recordset. The OLE DB Provider for Jet databases 
interprets the supplied string as a SQL statement, which doesn't 
match that language syntax. Specifying different values for the 
Command object's CommandType property — or specifying differ- 
ent values on the Options eirgument when invoking the recordset's 
Open method — doesn't fix the problem. ¥ou must use the brackets. 
— Leonwdo Borf, Bmeiww Aires, Argentina 

VB4,VB5,VB6 

Level: Advanced 

Binary Searcii Rovtine for RDO 

RDO does not have a FindFirst or Seek method, and as a program- 
mer, you sometimes need to quickly move to a particular record. 
I had a user who wanted to be able to scroll through more than 
3,000 records and also be able to search for a particuleu- record. A 
linear seeirch was too slow, so I decided to write a binary sesu-ch 
routine. The routine is case-insensitive and finds the matching 
entry. It can be copied into the form module emd used for sejirches 
on any sorted column for a given resultset. It takes three £U-gu- 
ments: the rdoResultset being seeu-ched, the column name within 
the resultset to be searched, and the search string: 

Private Sub BinarySearchCByRef rs _ 

As rdoResultset. ByVal strColName As _ 

String. ByVal varSearch As Variant) 

Dim lngFirst&. IngLastS, varBookMark 

varBookMark = rs. Bookmark "set a bookmark 

IngLast = rs.RowCount 

If IngLast = G Then Exit Sub 

1 ngFi rst = 

rs.AbsolutePosition = (IngLast - 1ngFirst)'_ 

\ 2 'move to middle 
varSearch = Trim( UCase( varSearch) ) 
Do While ({IngLast - IngFirst) \ 2) > 
Select Case StrComp{UCase( Left(Trim _ 
( rs . rdoCol umns( strCol Name) ) . _ 
Len(varSearch))), varSearch. vbTextCompare) 
Case 'found 

Exit Sub 
Case -1 'still ahead 

IngFirst = rs.AbsolutePosition 
rs.Move (IngLast - IngFirst) \ 2 
Case 1 'left behind 

IngLast = rs.AbsolutePosition 
rs.Move (-1) * ((IngLast - IngFirst) \ 2) 
End Select 
Loop 

rs . MoveLast 

If (StrComp(UCase(Left (TrimCrs.rdoColumns(strColName)), _ 
Len( varSearch) )) , varSearch, _ 
VbTextCompare)) <> Then 
' record not found. Return to bookmark and 
' display message, 
rs. Bookmark = varBookMark 



& varSearch. vbOKOnly Or _ 
vblnformatlon, "Btnary Seacrh" 

End If 
End Sub 

Because this search always misses the last item, the last record is 
checked specificedly. Also, this routine finds the last matching 
record if the record is positioned before the middle of a resultset, 
or the first matching record if the record is positioned after the 
middle of a resultset. For example, say there are three Smith's — ^A. 
Smith, B. Smith, and C. Smith — in a resultset and the user is 
searching by last name for Smith. Also assimie there are 100 
records in the resultset. If C. Smith is at absolute position of 25 (< 
50 = 100/2), then this seiu'ch routine finds C. Smith first. However, 
if A. Smith has an absolute position of 59 (>50 = 100/2), then this 
search routine finds A. Smith first. In case the Smiths happen to be 
somewhere in the middle, this search routine finds the first Smith 
encountered. This routine works best for searching on unique 
keys, such as Social Security numbers. 

— Rajnish Kaahyap, Miami, Florida 

VB4,VB5,VB6 

Level: Intermediate 

Delete All Records in a Table 

If you find yourself repeating the same Execute method in different 
parts of your code when clearing tables, use this method instead 
to automate the process. When you 2dready have a global variable 
set to the open database, delete all the records in a table with this 
function, where' DB is the database object: 

Function ZapTableCsTable As String, _ 

Optional sWhere As String = "") As Integer 

Dim sSQL As String 

On Error GoTo Err_ZapRecs 

' For Access Apps only: 

' docmd.SetWarnlngs False 

sSQL = "DELETE * FROM " & sTable & " " 

If sWhere <> "" Then 

sSQL = sSQL & "lilHERE " & sWhere 
End If 

DB. Execute sSQL, dbFailOnError 

'docmd.SetWarnlngs True 

ZapTable = True 
Exit_ZapRecs: 

Exit Function 
Err_ZapRecs : 

ZapTabl e = Fal se 
"ERROR HANDLING IF DESIRED 

Resume Exit_ZapRecs 
End Function 

Use this function in the code as in these examples: 

If Not ZapTabl e( "1 ocLookup" ) Then 

MsgBox "Cannot delete Table." 
End If 

Or: 

If Not ZapTable("locCities" , "STATE = 'NY'") Then 

MsgBox "Cannot delete Table." 
End If 

— Fabio A. Mir, Sr., Gaitbersburg, Marylimd 
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•i Analyze multiple fields & an unlimited 
number of records at once 

e Design/test your analysis Interactively 

a Easily add our Statistics ActiveX DLL 
(<1 MB) to your VB applications 



Total Components Sizer 



Form Rssbei 
& Splitter Bar 
ActiveX' 

<^'^;^ Malce forms 
^ resolution 



Reslzer { 
Control 



Splitter Bar Control 



Your users 
can easily 
adjust the 
size and 
selection of 
yourfonns! 



Fast, iightwelght, ATL4kased AcKveX controls 
require no additional files for application! 



includes Royalty-Free Distribution Riglits! 



Single Developer $599, 5-Pack $1799 j Single Developer $69, 5-Pack $199 



Total Visual Ageiit2000 



Scheduled Events 




Manage tasks 
with confidence! 



Daily Activit>i 

mi 

•IM Compact 
i ♦•I Archive Databate 
: */ Custom Command 
j ^ Database Statistics 
^ >S "^^^ l^ata Extract 

' ^ Execute Macro 

M G:\dala'v...VHap«ratedp 
i £ Peytol Activities 
ffl U G:\data'vCorp\Paiiio« 



a Automates database maintenance 
chores 

e Manages muMple databases across 



it is database 
Insurance! 



* Executes tasics hourly, dally, etc. 

e Repairs & compacts your databases 

e Provides a reliable backup or series of 
backups for each dataliase 



« Backs up data •vanwMtolKi»M&ma>Ml 

Single Developer $199, 5-Pack $599 



All withi FREE TRIAL VERSION on www. fmsinc.com & 30 DAY MONEY BACK GUARANTEE! 



1 us toll free: 1-888-220-6234 ext. 222 or visit www.f mslnccom 





With BitArts' advanced 
SOFTWARE you won't get 
your wires crossed 



The BitArts range of software packages boasts some of the most 
advanced features of any software protection available today. 
So you enjoy leading edge technology, high security and easy to 
use products all offering cost effective solutions. 

As such these products are ideal for any software developer from 
a large corporation to an individual user. 




Tmm0\ 




AKows you to copy protect create trialware and 
exommerce en^ your EXE's, DLL's, OCX's and 
screensavers without any change of code. Developers 
can also use the Included ActiveX control for greater 
flexlbi%. Softlocx features the world's most powerful 
anti-debug code on the tnaricet! 



The next generation installation product that aHows you 
to pad(age your applications Into one distributable 
executable. Features customizable splash screens, 
uninstall, backup of replaced files, powerful oompressioa 
Internet leaAion and lots more! 



UM3?MmQH 

AHows you to reduce your EXE's, DLL's, OCX's and 
screensavers by up to 50% and still run as normd. 
RePEtition introduces powerful compression and 
encryption that hides your program code from the 
eyes of hackers. Stops debuggers, process dumpen 
and disassemblers dead in their tracks! 

NEW! WEBUPDATE 

Alkws your customers to dieck for latest new^ sign up to 
mailng fists, check for newer versions already direcllyfrt>m 

your software. Also manage and send mailing lists directly 
fiDm your desktop PC Easy to use ActiveX control or 
Boriand component All it requires is your own website 
with FTP access, y^rtan even use your existing ISP! 



Comes as an ActiveX control and Borland component 
that has 101 functions for every imaginable function 
that most developers will ever need. Includes 
compression, encryption, memory access, API calls and 
many more functions that will save you months of 
development time. 



EXCLUSIVE OFFER! 

Take the software Developers Suite of three BitArts 
packages Softlocx, Digiwrap and Webupdate 
saving a massive $158! 
This is the ideal solution for developers wishing to protect, 
create an installation and then keep their customers 
informed with latest version and product news. 




HERE'S WHAT SATISFIED CUSTOMERS SA\ 



"I was looking for an affordable, secure and usable 
solution to package my software. After extensively 
researching the market, I found this and more with 
Softlocx. Not only is Softlocx the best solution I 
fomd, the support was unparalleled." 
Fox technology 



"Softlocx is a robust security tool which is both easy 

to use and affordable. 
When we compared Softlocx to the competition both 
from price and features it was apparent that Softlocx 
was by far the best product for our needs. " 
Resort MaiH0ement Systems 



"In my opinion SofUocx is the leading provider of software security software. 



